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FLIPPER 



Benoit PIRO 




Au lieu de traîner dans les bars louches pour 

dépenser désinvoltement votre argent en parties de billard 

électronique, vous devriez rester devant votre AMSTRAD et 

c'est beaucoup plus économique , petits garnements ! 



taper ce programme 



1 REM 

2 REM 

3 REM — 

4 REM — Benoit PIRO 

5 REM — _____ 

6 REM — 

7 REM FLIPPER 

8 REM 

9 REM 

M CLS:80SUB 1746 

28 SPEED II* 1,1:BIII f(28,26):«i-=l: 

n*="F.benoit ":_ _66«6 

36 SYMBOL AFTER 32: SYMBOL 158,», W 

,_S,W,-6,-78+W>,iii8,-18 

48 SYMBOL 157, M, _•,_*, W-M.H 

8+_68,_6,_8,.:e 

58 SYMBOL 155,8.1S,_8,i78+M> 

51 SYMBOL 173,8,4,3,11,38,63,127,33 

52 SYMBOL 174,8,16,32,95,64,252,126 
,255 

53 SYMBOL 175, 193, 128,8,8, 8, 8,4,8 

54 SYMBOL 176,35,33,8,8,8,8,8,8 

55 REM 

68 MODE 1 

78 ba=4:sc=e:t=8:-e=568:v.c=6 

75 WHILE sd»>":sd*=II«EY*:KEND 

76 WHILE sd*="":sd$=IHKEY*:WEND 
88 c=18: 1=23: 50=8: d=6: g =6: ba=ba-l : I 
F ba=8 THEN 1588 

98 FOR q=3 TO 18:L0CATE q.4:PRINT C 

HR*(143):fiq,4)=267:NEXT 

95 PEN 1: BORDER 8.-PAPER 4 

188 FOR q=5 TO 24:L0CATE 2,q:PRINT 

CHR*(143):f(2,q>=267:L0CATE 19,q:PR 

INT CHR* < 143) : -f i 19, q) =267: NEXT 

181 BORDER x_ 



>_< 

>_< 

>WD< 

>BE< 

m< 

>ZB< 
>HH< 
>BJ< 
>EK< 
>DB< 
)RC< 

>M< 

>HE< 

>CF< 
>UB< 
>LH< 

>EJ< 
>RK< 
>JLi 
>HB< 
>DH< 
>CN< 
>CP< 
>JJ< 



118 FOR q=2 TO 19:L0CATE q,25:PRINT 


>M« 


CHR»!131):f(q,25)=131:NEXT 




128 FOR q«l TO Bl 


>K1K 


125 a=a+l 


>YJ< 


138 REAB k, k_.cn 


;*■; 


148 LOCflTE k,_:PEN 3:PRINT CHR»tch 


>NF< 


143 EUT 9,1,2,1,1,0,2,1,8,2,1,-2,1, 


>YJ< 


1,8,4 




144 ENV 9. 1,15,1, 1,-3,2,1,6,1, 1,8,1 
,12,-1,4 

145 IF a>86 THEN 158 ELSE SOUND 1+1 


>MK< 


>PL< 


6,ch,18,15,9,9:S0UND 2tB,ch-188,16, 




15,9,9:S0UND 4+32,ch+466,18,15,9,9 




158 t(k,ki)=ch 


>PtK 


168 NEXT 


>LH< 

>NM< 




165 PEN 6: LOCATE 25,2:PRINT CHR» (17 


>LN< 



>YQ< 
>HB< 



>CC< 



3!CHRt(174):LDCATE 25,3:PRINT CHR»( 
175) CHR» (176): LOCATE 2B,3:PRINT CHR 
»( 173) CHR* (174): LOCATE 28,4:PRINT C 
HR»(175)CHR»(176) 

166 LOCATE 25,28:PRINT CHR*(173)CHR >NP< 
*(174!:L0CATE 25,21:PRINT CHR*(175) 
CHR» (176) 

167 LOCATE 23,9:PRINT"FLIF,FLIP,FLI >YQ< 
P. . .": LOCATE 26, 1 1 : PRINT'TLIPPER ! " 

178 DATA 2,4,214,19,4,215,3,5,212, >NJ< 

18,5,213,5,6,214,6,6,287,8,6,214,9, 

6,267,11,6,214,12,6,287,14,6,215,16 

,6,213,17,6,215,5,7,287,6,7,212,8,7 

,287,9,7,212,11,7,287,12,7,212,14,7 

,213,15,7,215,17,7,287,3,8,215,8,8, 

155,11,8,155,15,8,155,17,8,267 

171 DATA 4,9,215,5,8,213 »CK< 

186 DATA 3,9,287,13,9,158,17,9,287, >LK< 



3, 16,212,5, 16,214,6, 18,212, 12, 16,21 

4,13,18,287,5,11,267,17,18,287,7,11 

,214,12,11,287,13,11,212,17,11,287, 

5, 12,287,7, 12,267, 12, 12, 155,5, 13,21 

3,7,13,212,13,13,164,17,13,287 

196 DATA 4,14,215,16,14,164,16,14,2 . 

14, 17, 14,267,4, 15,212, 13,15, 164, 16, 

15,213,17,15,267,17,16,267,3,17,215 

,8,17,164,17,17,287,3,18,212,6,19,1 

64,12,18,164,17,18,287,17,19,287,17 

,26,267,15,21,214,17,21,287,4,22,21 

5,17,22,267,4,23,287,5,23,144,15,23 

,144 

266 DATA 3,24,158,4,24,267,5,24,26? 

,17,24,287,18,24,158,16,24,214 

216 RESTORE 

215 REM 

228 f .4,231 -15 

238 GOSUB 796:80SUB 828:DI:L0CATE 1 

8, 23: PEN 1:PRINT "o":PEN 3 

248 «IND0W»1,3,1B,1,3:PAPER»1,2:PEN 

tl,3:CLStl:L0CATE*l,2,l:PRINT*l,"R 
EC0RD:";«-:L0CATE(.1.2,2:PRINTtl,"SC 
ORE :";_c:L0CATEtl,2,3:PRINTI.l,"BAL 
LES:";ba 

256 IF vic=8 THEN LOCATE 26+!26-LEN 
(N*))/2,15:PR1NT n«:LOCATE 21,17:PR 
INT "Détient le record !" 
268 UIND0W#2, 22,48,5, 16 
276 PRINT42, "Appuyer sur "\"iire ou 

";CHR»(248) 

286 IF INKEY(76i=6 OR fe=l THEN 28 
5 

281 IF INKEY(8)08 THEN 286 
285 El 

287 REM 



.JC< 

>FD< 
>KJ< 
>KE< 
>NF< 

>Yfi< 



>TJ< 
>MK< 

>NL< 

>NM< 
>CR< 
>VU< 



290 ac=©:al=-l:CLS#2:IF t=-l THEN D >MM< 
lîLOCATE 18,12:PRINT CHR*(213):f(18 
,12)=213;EI:AFTER 1»,0 BOSUB 1410 
3» IF t=0 THEN AFTER 286,0 BOSUB 3 >HD< 
28:DI:L0CATE 18,12:PRINT " ":EI 
31» GOTÛ 339 >PE< 

328 ON INT(RND*4!+1 60SUB 1410,1450 >XF< 
,1480,1520:RETURN 

336 acl=ac:al!=ahcl=c:ll=l ;>KG< 
340 +=f(c+ac,l+al):ON ac+2 60TD 850 >UH< 
,860,870 

358 c=c+acl:l=l+all >UJ< 

360 CALL 1BD19 >CK< 

370 DhLOCATE cl,U:PRINT " ":EI >HL< 
380 c=c+ac:l=l+al >t|M< 

390 DhLOCATE c,l:PRINT "o":EI >PN< 
400 IF c=18 AND 1=23 THEN ba=ba+2: >XE<- 
ENT 2, 180,25, 10:SOUND 2,300,40,15,0 
,2:pt-=ll:B0RDER 6,2:S0SUB 167fcB0RD 
ER 0:BOTO 1570 

405 IF c=13 AND (1=7 AND 1106! THE >DK< 
N al=-l 

418 IF fOlM THEN 45» >0F< 

420 ao=-l+INT(RNDt3):al=-l+INT(RND* >M6< 
3): IF ac=0 AND al=0 THEN 420 
430 pr=5:B0SUB 1660 >TH< 

435 IF c=18 AND 1=11 THEN 1=10 >XN< 
440 DhLOCATE c,l:PRINT CHR*(164):c >tfj< 
=c+ac:l=l+al:EI 

450 IF 50=1 THEN 480 >RK< 

460 IF c<>15 THEN 48» >NL< 

470 50=1:DI:LOCATE 18,12:PRINT CHR* >M«< 
f214):((18,12)=214:EI 
480 IF c=3 AND 1)12 AND K17 THEN E >CNÏ 
NT 3,100, -25,10:SOUND 2,500,30,15,0 
,3: AFTER 450,1 60SUB 1730:inu=2:INK 
3,24,6:ac=0:pr=30;BOSUB 1670: IF al= 
THEN al=l:GOTO 550 ELSE 550 
490 IF c=3 AND 1=21 AND alO-1 THEN >XP< 
ac=0:al=l:GOTO 550 

500 IF c=18 AND K10 AND 50=1 THEN >EF< 
INK 1,24,6:ENT 3,200, -25,5:S0UND 2, 
700,20, 15,0, 3: pr=50: BOSUB 1670 
510 IF 1=24 THEN 1560 >ES< 

520 IF c=6 AND 1=12 AND alO0 THEN >ZH< 
ENT 3,100,-25,10:SOUND 2,400,40,15, 
9,3:pr=28:G0SUB 1678: IF al=-l THEN 
ac=0:al=-i:GOTO 550 

530 IF c=16 AND 1>18 AND al=l THEN >EJ< 
ac=0:SOTO 550 

535 IF (c=4 AND 1=8) AND f (4, 9) =215 >RP< 
THEN al=-l 

536 LOCATE 4,9:PRINT CHR*(215):IF c >BQ< 
=4 AND 1=9 THEN SOUND 1,100,10,15,2 
,9:5C=5C+5:60SUB 1670 

540 IF al=l AND (lc=10 AND 1=B) OR >NK< 
(c=14 AND 1=12)1 THEN DhLOCATE cl 
:PRINT " ":1=1+1:L0CATE c,l:PRINT " 
o":EI 



545 REN >RQ< 

550 IF (INKEY(9)=6 OR JOV(0)=4) THE >WL< 
N IF g=0 THEN GOSUB 670 ELSE 560 EL 
SE IF g=l THEN GOSUB 790: 
560 IF !INKEY(6)=0 OR JOY(0)=8) THE >W. 
N IF d=0 THEN GOSUB 730 ELSE 570 EL 
SE IF d=l THEN BOSUB 820 

564 LOCATE 12,12:PRINT CHR*(155):f( >VR< 
12,121=155 

565 REN >UT< 

570 IF c=10 AND (1=22 OR ac=0) THEN >FN< 

al=hac=0:SOTO 650 
580 IF K20 OR c<5 OR c>14 THEN 650 >ZP< 

590 IF 1=20 THEN 630 >DQ< 

600 IF c>10 THEN 630 >KGC 

610 IF g=0 AND 1=22 THEN al=0:GOTO >AH< 
650 

620 IF g=l THEN IF (1=21 AND c.>5) >0J< 
R (1=22 AND c<7i THEN ac=-l+INT(RND 
*2) :âl=-l:GDTQ 658 ELSE IF 1=20 THE 
N ac=0:al=l:GOTO 650 
630 IF d=0 AND 1=22 THEN al=0:BOTO >ZK< 
650 

648 IF d=l THEN IF (1=21 AND c>12! >ZLC 
OR (1=20 AND ic>li AND c<15)) THEN 
ac=INT(RND«2):al=-l 

650 REN ' >RH< 

660 60T0 330 >YN< 

670 IF c<10 AND c>5 AND 1=22 THEN 6 >XP< 
80 ELSE 700 

680 DhLOCATE c,l:PRINT " ":EI: IF a >(W< 
o=0 THEN ac=-l+INT(RNB*2) 
690 al=-hc=c+ac:l=l+al >ER< 
700 DhPLOT 68,45.0:DRAW 6S,35:DRAW >NH< 
140,35:DRAW 146,45:DRAW 6B,45:PL0T 
65,43,hDRA« 72,35:DRAW 135,64:DRA 
W 127,72:DRAW 65,43:EI 
716 g=l >MJ< 

720 RETURN >NK\ 

738 IF c>10 AND c<15 AND (1=22 OR 1 >VL< 
=21) THEN 740 ELSE 760 
748 DhLOCATE c.hPRINT " ":EI:IF a >BM< 
c=8 AND cOi4 THEN ac=INT(RND*2) EL 
SE IF o=14 THEN ac=0 
750 al=-l:c=c+ac:l=l+al >BN< 
768 DhPLOT 235,35,0:DRAW 235,45:DR ;BP< 
AN 163,45:DRAW 163, 35: DRAW 235,35:P 
LOT 234,35, hDRAW 23B,43:BRAN 180,7 
2:DRAW 172,64:DRAW 233,33:EI 
770 d=l >QB< 

780 RETURN >VR< 

798 DhPLOT 65,43, 0:DRAM 72,35:BRAI» >XT< 
135,64:DRA« 127,72:DRAW 65,43:PLDT 
68,45,1: DRAW 68,35:DRAW 140,35:DRA 
H 140,45:DRAN 68,45:EI 



818 RETURN 

820 DhPLOT 234,35,6:DRAW 238, 43: DR 



>LJ< 

>NK< 
>YL< 



AN 180,72:DRAW 172,64;DRAM 233,33:P 
LOT 235,35,1: DRAM 235,45:DRAW 163,4 
5:DRAN 163,35:DRA« 235,35:EI 
830 d=8 >LH< 

840 RETURN >RN< 

858 ON al+2 GOTO 888,950,1020 >PPC 
868 ON al+2 BOTO 1088,1880,1130 >JQ< 
870 ON al+2 BOTO .1198,1268,1320 >NR< 
880 IF f=207 THEN IF c=3 THEN ac=-( >ET< 
1=19 OR l=6):al=-l:B0T0 378 ELSE ac 
=(l=5):al=l:G0T0 378 

885 REM ;ZY< 

890 IF f=214 OR F=215 THEN ac=INT(R >FU< 

ND«2):al=-l:G0T0 370 

900 IF +=212 THEN ao=l:al=l:G0T0 35 )>YK< 



910 IF +=155 THEN ac=-l+INT(RNB*2): >LL< 

al=hpr=5iB0SUB 1668:S0TÛ 370 

920 IF +=158 THEN ac=-l+INT(RND*2): >BK 

al=-l+INT(RND»2l:IF ac=8 AND al=0 T 

HEN al=-l:GOT0 358 ELSE 350 

938 IF +=215 THEN ac=8:al=-l:60T0 3 )EN< 

78 

935 IF 0=4 AND 1=10 AND *(4,9!=215 >DU< 

THEN al=l 

946 BOTO 378 >DF< 

956 IF +=207 OR *=214 THEN ac=l:al= >BSK 



INT(RNW2):IF 1=13 OR 1=9 OR c=6 TH 






EN al=l:ac=8:60T0 370 ELSE 378 






960 IF f=215 THEN ac=0:al=-l:8OTO 3 


>FR< 




50 






976 IF +=212 THEN ac=8:al=l:S0T0 35 


>ET< 




988 IF +=155 THEN ac=-l+INT(RND*2!: 


>0ii 




al=l:pr=5iG0SUB 1668:G0T0 350 






996 IF f=15B THEN ac=-l+INTlRND»3i : 


>UV< 




al=-l:pr=10:GOSUB 1666:B0T0 358 






1000 IF c>10 AND 1=22 AND d=l THEN 


M\ 




BOSUB 1550:ac=l:al=0:BOTO 370 






1001 BORDER ZK5 


>E£< 




1010 GOTO 378 


>uc< 




1820 IF f=207 OR f=212 THEN ac=0:al 


,>DD< 




=1:S0T0 376 






1830 IF +=215 THEN ac=l:al=-l:BOTO 


>XE< 




358 






1046 IF f=214 THEN ac=-i+2*(INT(RND 


/YF< 




*2)l:al=0:IF c=16 THEN ac=0:6OTO 37 






ELSE 356 






1056 IF +=158 THEN ac=-l+INT(RND*3) 


,>RB< 




:al=-l+INT(RND*2):pr=16:B0SUB 1668; 






IF ac=6 AND al=8 THEN al=-l:BOTO 35 






ELSE 350 






1060 IF 1=213 THEN ac=hal=L:GOTO 3 


>ZH< 




50 






1070 BOTO 370 


jAJ< 




1075 :x5=INT(RND*3):s25=INT(RND(RND 


>YP< 




*6)Ï:B0RDER !X5,xZ5 






1888 IF +=267 THEN IF 1=5 AND c>4 A 


:>CtC< 




ND c<14 THEN ac=-l+INT(RND*3) : IF ac 







=0 THEN al=l:GOT0 378 ELSE al=0:GOT 

370 ELSE ac=l+2*(c=14 AND f (13,51 
=0):al=0:GOTO 378 

1098 IF {=212 THEN ac=l:al=0:GOTO 3 XSL< 
50 

1100 IF {=213 THEN ac=-l:al=0:GQTO >RC< 
350 

Uie IF f=155 THEN ac=-l+INT(RND*3) >DD< 
:pr=5:G0SUB 1660:1F ac=0 THEN al=l: 
GOTO 350 ELSE al=INT!RNB*2):G0T0 35 


1120 GOTO 370 >WE< 

1130 IF f=214 THEN ac=-l:al=0:GOTO >WF< 
350 

1140 IF f=215 THEN ac=l:al=0:GOTO 3 >ZG< 
50 

1150 IF {=212 THEN ac=-l+INT(RND*3) >KH< 
;al=-l:GOTO 350 

1160 IF f=158 THEN pr=10:GQSUB 1660 >MJ< 
:IF c=13 THEN ac=-l+INT(RND*3):IF a 
c=0 THEN al=-l:GOTQ 350 ELSE aI=0:G 
OTO 350 ELSE ENT 3, 100, -50, 10: SOUND 
2,100,40,15,0,3:ac=0:al=-l:pr=13:G 
OSUB 1670:6010 350 

1170 IF {=144 THEN ac=INT(RND*2):al >RI« 
=-l:GOTO 350 

1180 GOTO 370 >CL< 

11» IF {=207 THEN IF c=4 THEN ac=0 >NM< 
:al=l:60T0 370 ELSE IF c=16 AND Kl 

1 THEN ac=0:al=-l;GOTO 370 ELSE ac= 
-l:al=-l:60T0 370 

1200 IF f=213 THEN ac=-l:al=l:GOTO >UK 

350 

1210 IF {=214 THEN ac=-l+INT (RND«i >HE< 

:al=-i:GOTO 350 

1220 IF f=215 THEN al=ic=3 OR c=13) >MF< 

:IF al=-l THEN ac=0:GOTO 370 ELSE a 

c=-l:GOTO 350 

1230 IF {=212 THEN ac=INT(RND*2):IF >ZG< 

ac=0 THEN al=l:SOTO 370 ELSE al=0: 
GOTO 370 

1240 IF f=155 THEN pr=5;G0SUB 1660: >ÏH< 
ac=INT(RND«2):IF ac=0 THEN al=l:GOT 
370 ELSE al=0:GOTO 370 
1250 GOTO 370 >AJ< 

1260 IF {=207 THEN IF c=lB THEN al= >KK< 
l:ac=0:GOTQ 370 ELSE IF 1013 AND 1 
Oi9 THEN ac=-l+INT(RND*2i:al=l:G0T 
370 ELSE ac=-i:al=INTiRND*2):G0T0 

370 

1270 IF {=212 THEN ac=-l:al=0:6OTO >ZL< 
350 

1280 IF {=214 OR {=158 THEN ac=0:al >RM< 
=-l:60T0 350 

1290 IF {=213 THEN ac=0:al=l:6OTO 3 >DN< 
50 

1300 IF f=155 THEN ac=INT(RND»2>:al >FE< 
=l:pr=5:GOSUB 1660:GOTO 350 
1310 GOTO 370 >XF< 



1320 IF {=207 THEN ac=-l+INT(RND«2) >XG< 
:al=l:IF c=12 THEN al=0:ac=-l:6OTO 
370 ELSE 370 
1330 IF {=214 THEN ac=-l:al=-l:GOTO >YH< 

350 
1340 IF {=215 THEN ac=INT(RND*2):IF >AJX 

ac=0 THEN al=l:GOTO 350 ELSE al=0: 
GOTO 350 
1350 IF {=212 THEN ac=INT(RND*2):IF >XK< 

ac=0 THEN al=-l:GOTO 350 ELSE al=0 
.-GOTO 350 

1360 IF {=155 THEN ac=-l+INTiRND*2i >NL< 
:al=l:pr=5:GOSUB 1660:GOTO 370 
1370 IF {=213 THEN ac=-i+INT(RND*2) >QM< 
:al=l:GOTO 350 

1380 IF {=158 THEN ac=-l+INT(RND*3) >ZN< 
:pr=10:GQSUB 1660: IF ac=0 THEN al=- 
l:GOTO 350 ELSE al=0:3OTO 350 
1390 IF {=144 THEN ac=l:al=0:GOTO 3 >KP< 
70 

1400 GOTO 370 
1410 REM 



>XF< 

>LG< 

GOSUB 1 >MH< 



1420 GOSUB 1510:AFTER 
450 

1430 DI:LOCATE 16,23:PRINT CHRJI215 
l:{(16,23)=215:L0CATE 17,22:PRINT C 
HR*(209):{(17,22i=0:LOCATE 9,10:PRI 
NT CHR*(164):{(9,10)=164:EI:RETURN 
1440 DI:LOCATE 16,23:PRINT. " ";{(16 
,23)=0:LOCATE 17,22:PRINT ~CHR$(207) 
;{(17,22)=207:LOCATE 9,10:PRINT " " 
:{(9,10i=0:EI:RETURN 
1450 AFTER 300,0 GOSUB 1520: GOSUB 1 
440 

1460 DliLOCATE 7,5:PRINT CHR$(212i: 
{(7,5)=212:EI:RETURN 
1470 DliLOCATE 7,5:PRINT ■ ":+ (7,S> 
=0:EI:RETURN 
1480 REM 2 

1490 AFTER 300,0 GOSUB 1410:GOSUB 1 
550 

1500 DI:LOCATE 16,20:PRINT CHR*i214 
):{(16,20)=214:LOCATE 16,21:PRINT C 
HR$(207);{(16,21)=214:LOCATE 16,22: 
PRINT CHR$ (2131 : { ( 16, 22) =213: LOCATE 
13,5:PRINT CHR$i212):{(13,5)=212:E 
I:RETURN 

1510 DI:FOR x=20 TO 22:L0CATE 16,x: 
PRINT ■ ":{(16,x!=0:NEXT:LOCATE 13, 
5:PR1NT " ":{(13,5)=0:EI:RETURN 
1520 REM 3 

1538 AFTER 300,0 GOSUB 1480:GOSUB 1 
470:BOSUB 1440 

1540 DhLOCATE 10,5:PRINT CHR*(212> 
:{(10,5)=212:LOCATE 16,22:PRINT CHR 
»(214):{(16,22)=214:EI:RETURN 
1550 DI:LOCATE 10,5:PRINT " ":{(10, 
5)=0:LOCATE 16,22:PRINT " ":{(16,22 
l=0:EI:RETURN 



>\U< 



>QL< 

>CM< 

>NN< 

>AP< 
>VQ< 



>HJ< 
>XK< 



>EL< 



1560 SOUND 4,400, 10, 15: SOUND 4,500,- »K 

10,15:SOUND 4,600,30,15 

1570 DliLOCATE c,I:PRINT " M :GOSUB >PP< 

1440.-GOSUB 1470:BOSUB 1510:GOSUB 15 

56:DI:L0CATE 16,5:PRINT " ":LOCATE 

17,12:PRINT " ":{(16,5)=0:{(17,12l= 

0:EI:t=(t=01:GOTO 80 

1580 ENT 2,100,-20,5:SOUND 2,200,-5 >LQ< 

0,7,0,2 

1590 DI:PEN 0:LOCATE 22,20:PRINT RE >PR< 

KAIN(0):PEN 1::EI:CLS 

1595 REM >BX< 

1600 LOCATE 5,5:PRINT "SCORE :":sc >EH< 
1610 CLEAR INPUT: IF sc>«s THEN LOCA >LJ< 
TE 1,10:PRINT "Vous avez battu le p 
recèdent record qui était devins: "p 
oints. ":PRINT:PRINT "Entrez votre n 
oui S.V.P.":PRINT: INPUT n*:n*=UPPER* 
(LEFT»in$,201! 

1620 nis=MAX(ins,5c) >6K< 

1630 LOCATE 1,25:PRINT "Appuyez sur >NL< 
R pour rejouer" 

1640 IF UPPER*(INKEY*iO"R" THEN 16 )LM< 
40 

1650 RUN >NN<: 

1660 ENT 2,100,4ô,2:SOUNB 2,200+INT >ZP< 
(RND»300),10,15,,2 

1670 5C=5c+pr»»u >LGK 

1680 DI;L0CATE#l,9,2:PRINTtl,sc:CLS >NR-i 
»2:EI 

1690 IF sc>=se THEN ENT 1,200,20,3, >KT< 
200, 20, 3: SOUND 2,100,31,7,0, l:ba=ba 
+l:LOCATE#l,10,3:PRlNT#l,ba:se=2*5e 

1700 IF vic=l THEN 1720 >i1J< 
1710 IF 5C>«5 THEN LOCATE 20,15:PRI >PK< 
NT " VOUS détenez ": LOCATE 20 
,17:PRINT " le record ! ":v 
ic=l 

1720 INK 1,24:RETURN >I1L< 

1730 »u=l:M 3,6:RETURN >XM< 
1740 LOCATE 13,2:PRINT"jeu de FLIPP >PN< 
ER":LOCATE 4,5:PRINT"Ce Flipper se 
joue au clavier ou au":LOCATE 1,6:P 
RINT" joystick en inclinant celui-ci 
a droite": LOCATE 1,7: PRINT" pour s 
oulever le taquet de droite" 
1745 LOCATE l,B:PRINT"ou en l'incli >AU< 
nant a gauche pour Ie":LOCATE 1,9:P 
RINT'taquet de gauche" 
1750 LOCATE 2,10:PRINT"Pour le clav >HP< 
ier, enter pour le taquet":LOCATE 1, 
il:PRINT"de droite, et control pour 
le taquet de":LOCATE l,12:PRINT"gau 
che" 

1760 LOCATE 25,25:PRINT"<T0UCHE>":a >L8< 
*=INKEYI:IF a*="" THEN 1760 ELSE 17 
70 
1770 RETURN >XR< 



Chaque «-«prose Juste 
remplit un wagon. 

Chaque réponse fausse 

n fait disparaître un, — 

snuB«8~ni mmmm « <mhu»i intact' ? 



Pour continuer / 

ut toujours appusier sur une ton 




lALCUL 
ENTAL 



Henri CHAUVET 




Vous aimez les trains et le calcul de tête ? Alors Calcul Mental est fait pour vous. Le but 

du jeu : ramener un convoi intact à la gare. Chaque mauvaise réponse détruit un wagon. 

Attention ce programme fonctionne uniquement sur 664 et 6128. 



10 REM — pour changer le temps d'af 

fichage des opérations, jouer sur 1 

a valeur de "at" a la ligne 398 

28 ENV 1,15,1,1, 15,-1, 1:ENT -1,2,1, 

1,2,-1,1 

3» EN',' 2,15,-1,18:ENT -2,68,-2,2 

48 CLS:GQSUB 1978 

58 GDSUB 2178 

68 DEF FN deek!x!=PEEK(xl+25è*PEEK( 

x+1) :REM — redéfinition des caracte 

res 

78 REM 

68 REM — initialisations — 

98 REM 

188 RflNDOMIZE TIME/1888 

118 INK 8,1:INK 1,25: INK 2,28: II* 3 

,1? 

128 «=0: xt=3: yt=22: xtf =36: x=21 :y=3: 

j=0: f =8 

138 «INDOW #1,1,48, 1,18: HINDOU #2,1 

,48,19,25 

148 PEN 3:L0CATE :rt,yt:PRINT trf 

158 MASK 188,1: PLOT 1,2B,2:DRAWR 63 

9,8:PL0TR -5,-2:DRA«R -633,8 

168 IF partie» THEN 258 

178 REM 

188 REM — choix de l'épreuve — 

198 REM 

288 PEN liLOCATE 18,2:PRINT"Chaque 
r"+CHRS(212)+"ponse juste":LOCflTE 1 
l,3:PRINT"remplit un wagon." 
218 LOCATE 18,5:PRINT"Chaque r"+CHR 
*(212)+"ponse fausse": LOCflTE 9,6:PR 
INT"en fait dispara"+CHR»(215)+"tre 
un." 

228 PEN 2: LOCflTE 3,9:PRINT"SAURAS-T 
U RAMENER LE CONVOI INTACT ?" 
238 FOI 1: LOCflTE 13,15:PRlNT"Pour c 



>jB< ontinuer":LOCATE 4,16:PRINT"il faut 
toujours appuyer sur une touche." 

248 CftLL Ï<BB06:CLS#1 >TB< 

>HC< 258 PEN 3: LOCflTE l,10:PRINT"SueIle >BH< 

op"+CHR$(212)+"ration choisis-tu ?" 
>GD< 268 PEN 1:PRINT:PRINT"1 ";:PEN 2:PR >KJ< 
>ME< INT"addition":PEN 1:PRINT"2 ";:PEN 
>XF< 2:PRINT"soustraction":PEN 1:PRINT"3 
>M6< ";:PEN 2:PRINT"»ultiplication":PEN 
1:PRINT"4 ";:PEN 2:PRINT"division" 

:PEN 1 
>MH< 278 CLEflR 1NPUT >RK< 

>UJ< 280 op$=I»:EY$ >CL< 

>PK< 298 IF op*=" OR INSTR("1234",op$)= >TM< 
>NB< 8 THEN 288 
>ZC< 380 CLS#1 >XD< 

318 LOCflTE 5,5:PRINT"L'op"+CHR$(212 >XE< 
>AD< l+"ration ne reste affich"+CHR*(212 

H"e":L0CATE 9,6:PRINT"gue quelques 
>KE< instants. " 

328 LOCATE 8,8:PRINT"Tu ne dois pas >XF< 
>TF< r"+CHR$(212)+"pondre":L0CATE 7,9:P 
>NS< RINT"avant qu'elle ne s'efface." 

338 PEN 3:L0CATE l,13:PRINT"Quel ni >WS< 
>AH< veau choisis-tu ?" 
m< 348 PEN 1:PRINT:PRINT"1 ";:PEN 2:PR >FH< 
>FK< INT"chanpion":PEN 1:PRINT"2 ";:PEN 
>PL< 2:PRINT"entra"+CHR*(215)+"n"+CHR$(2 
>PC< 12i:PEN 1:PRINT"3 ";:PEN 2:PRINT"d" 

+CHR*(212)+ M butant" 

358 CLEAR INPUT >QJ< 

>XD< 368 ni$=INKEY$ >TK< 

378 IF ni$="" OR INSTR("123",ni«>=0 >RL< 
THEN 368 

388 at=2080*VAL(ni*l >RM< 

>JE< 390 ON VflL(opt) 60SUB 428,598,778,9 >AN< 

40 
;>TF< I 480 SOSUB 1750 >BE< 



410 REM 


>VF< 


428 REM — addition — 


>UG< 


AXÙ PCM - 


>XH< 


ijfl Htn — 


440 FOR nq=l TO 10 


>RJ< 


450 CLS#1:PEN 1 


>rk< 


460 a=INT(RND*98)+2:IF aa=a 


THEN 46 >KL< 


ELSE aa=a 




478 a*=MID*(STR*(a),2> 


>EM< 


488 b=INT(RND*98)+2:IF bb=b THEN 48 >XN< 


8 ELSE bb=b 




490b*=MID$(STR*(b),2> 


>JP< 


588 xx=x-LEN(a$):yy=y:x*=a*:60SUB 2 >CF< 


488 




518 xx=x-LEN(b*):yy=y+3:x$=b$:6QSUB >HB< 


2480 




528 xx=x-LENib*)-2:yy=y+3:x$ 


="+":G0 >XH< 


SUB 2480 




530 LOCflTE xx,yy+2:F0R trait 


=1 TO L >CJ< 


EN(b*R2:PRINTCHR$(154);:NE 

t 

540 so=a+b:so*=MID*(STRttso) 


<T trai 


2) >HK< 


558 BOSUB 1130 


>ZL< 


568 NEXT nq 


>NM< 


570 RETURN 


>RN< 


CQû Dru 


>YP< 


3tw ntn 


59$ REM — soustraction — 


m< 


kCtÛi PCM 


>QG< 


qvv ntn 


610 FOR nq=l TO 18 


>0H< 


628 CLS#1:PEN 1 


>f)J< 



638 a=INT(RND*(B9))+18:IF aa=a THEN >XK< 
630 ELSE aa=a 

648 a$=MID»(STR$ta),2> >BL< 

650 b=INT(RND*98!+2:IF bb=b THEN 65 >VM< 
ELSE bb=b 

660 IF b>a THEN 658 >HN< 

670 b*=MID$(STR$ib>,2) >JP< 
680 xx=x-LEN(a*l:yy=y:x*=a*:60SUB 2 >MQ< 



690 KK=K-LEN(b*) : yy=y+3: x*=b*:SOSUB >TR< 



768 xs=x-LEN(b*)-2:yy=y+3: x*="-":60 

5UB 2488 

7» LOCATE xx,yy+2:F0R trait=l TO L 

EN(b*)+2:PRINT CHR$(154)::NEXT trai 

t 

728 50=a-b : soMMID* (STR* (so! , 2) : IF 

50<16 THEN S0*="9"+50* 

739 60SUB 1138 

746 NEXT nq 

758 RETURN 

766 REM 

776 REM — multiplication — 
786 REM 

796 FOR nq=l TO 16 
886 CLS#1:PEN 1 

B16 a=INT(RND*B9)+19:IF aa=a THEN 8 
18 ELSE aa=a 
826 a*=MID*(STR*(a),2) 
839 b=INT(RND»8!+2:IF bb=b THEN 839 
ELSE bb=b 
848 b*=MID*(STR$(b),2) 
858 xx=x-LENla*):yy=y:x*=a*:BOSUB 2 
486 

B66 xx=x-LEN(b*);yy=y+3:ï$=b*:BDSUB 
2486 

878 xx=x-LENib$)-2:yy=y+3:x*="X":60 
SUB 2488 

886 LOCflTE xx,yy+2:F0R traiH TO L 
EN(b*)+2:FRINT CHR*i 154);: NEXT trai 
t 

898 50=a*b:so*=MID*(STfi*iso),2i 
986 GOBUB 1136 
916 NEXT nq 
926 RETURN 

936 REM 

946 REM — division — 

956 REM 

966 FOR nq=l TO 16 

976 CLSikPEN 1 

986 a=INT(RND*89)-H9:IF aa=a THEN 8 

16 ELSE aa=a 

996 a*=MD*(STR*(ai,2) 

1868 b=INT(RNB*8)+2:IF bb=b THEN 18 

68 ELSE bb=b 

1818 b*=MID«(STR*(bS,2) 

1928 xx=x-LEN(a*)-2:yy=y:x*=a*:B0SU 

B 2486 

1839 xx=x+l:yy=y:x«=b*:SOSUB 2489 

1648 FOR trait=l TO 7:LOCATE ;<x-2,y 

♦trait-lsPRINT CHR*(149!;NEXT trait 

:L0CATE ,xx-2,y+2:PRINT CHR»<151)+CH 

R* ( 154) +CBR* ( 154 i +CHR* ( 152) 

1959 50=a\b:so*=MID*(STR*(5o),2i 

1666 GOSUB 1398 

1678 NEXT nq 

1886 RETURN 

1696 REM 



>ZH< 
>CJ< 

>ZK< 

>ZL< 
>HH< 

>RN< 
>XP< 
>BQ< 
>ZR< 
>AK 
>QJ< 
>JK< 

>DL< 
>HM< 

>HN< 
>LP< 

>RQ< 

>ER< 

>LT< 



>QU< 
>¥X< 
>ML< 
>QM< 
>CN< 
>DP< 
>EQ< 
>ZR< 
>ZT< 
>TU< 

>HV< 



1196 REM-correction de +, - et * - 
1118 REM 

1128 REM 

1136 FOR w=t TO at:NEXT w:INK 1,1:P 

EN 2 

1146 LOCflTE l,15:PRINT"0uelle est t 

a r"+CHR»(212)+"ponse 1 ";;PEN 3 

1156 CLEflR INPUT:INPUT"",re* 

1169 FOR ct=l TO LENIre*) 

1179 IF ASC(MID«(re*,ct,l)K47 OR fl 

SC(MID*(reS,ct,l)!>57 THEN 1189 ELS 

E 1196 

11B9 PRINT CHR*(7i:L0CATE 25,15:PRI 

NT CHR*(1B):L0CATE 25, 15:6QTQ 1158 

1196 NEXT 

1296 re=VAL(re*> 

1219 PEN 2 

1226 FOR w=l TO 496: NEXT m LOCflTE 1 

,15:PRINT CHR$(18) 

1236 INK 1,25 

1246 xx=x-LEN(so*>:yy=y+7:x*=so*:S0 

SUB 2488: LOCflTE 1,15 

1256 IF re=so THEN 1266 ELSE 1368 

1266 PRINT:PRINT:PRINT" JUSTE. " 

1279 ]=j+l:xt=xt+3 

1289 CLEflR INPUT:FOR k=l TO 5966: IF 

INKEY*©"" THEN 1298 ELSE NEXT k 
1296 SOUND 1,168,8, 15, 2: LOCflTE xt,y 
t:PRINT wpt:RETURN 
1398 PRINT:PRINT"Faux." 
1318 IF re=6 THEN PRINT:PRINT"Tu n' 
avais rien r"+CHR*(212i+"pondu !":8 
OTO 1339 

1329 PRINT: PRINT'Tu avais r"+CHR*(2 
12>+"pondu";:PEN 1:PRI_NT re:PEN 2 
1339 t=fH:xtf=xtt-3 
1349 CLEflR INPUT:FOR k=l TO 5886:1F 

INKEYSO"" THEN 1356 ELSE NEXT k 
1358 SOUND 1, 168,58, 15,2,2:F0R cl=l 

TO 36:L0CATE xtF,yt+l:PEN -3»(cl M 
OD 2=6t:PRINT wvt: NEXT: LOCflTE xtf.y 
t:PRINT ef*:RETURN 

1366 REM 

1378 REMcorrection de la division 

1386 REM 

1398 FOR w=l TO at:NEXT w: INK: 1,1:P 



>MC< 
>BD< 
>LE< 
>flF< 

>VS< 

>PH< 
>NJ< 

>MK< 



>VL< 

>TM< 
>FD< 
>PE< 
>BF< 

>ZG< 
>CH< 

>NJ< 
>TK< 
>CL< 
>LM< 



>ZC< 


EN 2 




>FD< 


1469 LOCflTE l,16:PRINT"Quelle est t 
a r"+CHR*(212)+"ponse ? ";:PEN 3 


>VF< 


>8E< 


1418 CLEflR INF'UT:INPUT"",re* 


>N6< 


>KF< 


1428 FOR ct=l TO LENIre») 


>MH< 




1439 IF flSC(MID*(re*,ct,l))<47 OR fl 


>JJ< 




SL(MID»(re»,ct,l))>57 THEN 1446 ELS 






E 1459 




>KB< 


1449 PRINT CHR*(7i:L0CATE 25,16:PRI 


>YK< 


>BH< 


NT CHR*l 18; : LOCATE 25,16:G0T0 1419 




>MJ< 


1458 NEXT 


>RL< 


>QK< 


1468 re=VAL(re») 


>m< 


>PL< 


1479 PEN 2 


>YN< 



1486 FOR w=l TO 499: NEXT w: LOCATE 1 >LP< 
,16:PRINT CHRM18) 

1498 INK 1,25 >HQ< 

1566 xx=x+l:yy=y+3:x*=so«: BOSUB 24B >ZB< 

« 

1516 dl=(so\18l*18 >FH< 

1526 d2=a-dl»b >BJ< 

1538 IF d2<18 THEN d2$="8"+MD*(STR >AK< 

$!d2),2! ELSE d2*=MÏDt(STR»(d2) ,2) 

1546 r=a-so*b;r*=MID*(STR*(r>,2) >ZL< 

1558 PEN 3 >VM< 

1569 IF a>10*b THEN 1579 ELSE 1599 >NN< 

1579 xx=x-LENld2*i-2:yy=y+3:x*=d2*: >JP< 

60SUB 2489 

1588 xx=x-LEN(r*i-2:yy=y+5:x*=r*:G0 >D8< 

SUB 2486:B0T0 1688 

1598 xx=x-LENir*l-2:yy=y+3:x*=r*:60 >HR< 

SUB 2488 

1666 PEN 2 ,'TH< 

1619 IF re=so THEN 1626 ELSE 1666 >YJ< 

1628 LOCflTE 1,18:PRINT" JUSTE." >KK< 

1638 j=j+l:xt=xt+3 >CL< 

1648 CLEAR INPUT:FOR k=l TO 5866: IF >LM< 

INKEYtO"" THEN 1656 ELSE NEXT k 
1658 SOUND 1, 199,9,8, 2:LOCATE xt,yt >ZN< 
:PRINT »pt:RETURN 

1668 LOCflTE l,16:PRINT«Faux." >TP< 
1676 IF re=8 THEN PRINT:PRINT"Tu n' >KQ< 
avais rien r"+CHR$(212!+"pondu !":E 
OTO 1696 

1688 PRINT:PRINT"Tu avais r"+CHR»(2 >YR< 
12)+"pondu";:PEN 1:PR1NT re:PEN 2 
1696 f=f+l:xtf=xt)-3 >ET< 

1766 CLEflR INPUTiFQR k=l TO 5868:1F >EJ< 

INKEY*©*" THEN 1718 ELSE NEXT k 
1716 SOUND 1,189,59,15,2,2:F0R cUl >flt« 

TO 39:L0CATE xtf,yt+l:PEN -3*(cl M 
OD 2=9):PRINT wv»:NEXT:LOCATE xtt.v 
t: PRINT et*: RETURN 

1729 REM >TL< 

1739 REM — Fin de l'exercice — >LM< 

1746 REM >W< 

1756 CLS >UP< 

1769 xx=14:yy : =16:x$= i 'bon voyage I": >PQ< 
BOSUB 2486 

1779 BOSUB 2729 >NR< 

17B9 CLStkLOCATE 1,15 >RT< 

1796 IF F=6 THEN 1866 ELSE 1846 >WU< 
1808 IF ni*="3" OR !ni*="2" AND sop >TI« 
*='T OR op*="2"l) OR <ni»="i" AND 
op*="l") THEN PRINT" Bravo, le conv 
oi est arriv"+CHR»(2121+" intact !" 
:BOTO 1888 

1B18 PEN 2:x*="FELICITATIONS l":xx= >NL< 
13:yy=5:B0SUB 24B8:L0CATE 15,9:PRIN 
T"La ";:PEN 1:PRINT"S N C F " 
1826 PEN 2:L0CATE 11, 1 1 : PRINT" ("; iP >MM< 
EN 1:PRINT"S"::PEN 2:PRINT"oci"+CHR 
*(212i+"t"+CHRS!212);:PEN 1:PRINT" 



K'iiPEN 2:PRINT"ationale":L0CATE 18 
,12:PRINT"des":PEN i:LOCATE 7,13:PR 
INT"C";:PEN 2;PRINT"alculateurs ";■■ 
PEN 1:PRINT"F";:PEN 2:PRINT"antasti 
ques) " 
1830 LOCATE 5,15:PRINT"t'e«lbauchera >EN< 

d"+CHRt(213)+"5 que tu voudras. ":G 
OSUB 1930: GOTO 1890 

1840 IF f=l THEN 1850 ELSE IF (=10 >SP< 
THEN 1860 ELSE 1870 

1850 PEN 2:L0CATE 15,6:PRINT"F'as «a >DQ< 
1 !":PRINT:PRINT" Il manque tout de 

m"+CHR*(214)+"«e un petit wagon.": 
LOCATE 7,10:PRINT"Tu es certainenen 
t capable":LOCATE 7,ll:PRINT"de rai 
ener tout le convoi. ":S0SUB 1936: GO 
TO 1890 

1860 PRINT" Mes pauvres petits h >ER< 
agons !!!!!":80T0 1880 
1870 PRINT" D"+CHR$(212)+"sol" >UT< 
tCHR*l212)+", il «anque":f;"»agons. 



1860 FOR w=l TO 3000: NEXT w >LU< 

1890 CLEAR INPUT:LOCATE 8,10:PRINT" >«V< 

veux-tu rejouer (Û/N)? "; 

1900 IF INKEY(34)=0 THEN PRINT"0":F >ZL< 

OR n=l TO 20B:NEXT w:CLS:CLEAR INPU 

T:partie=partxe+1:60T0 120 

1910 IF INKEY(46i=0 THEN PRINT"N":6 >LM< 

0T0 1920 ELSE 1890 

1920 FOR w=l TO 1000:NEXT w:CLS:CAL >YN< 

L MC02;END 

1930 PEN 1: LOCATE 1,19:PRINT" Appui >JP< 

e sur une touche pour continuer. " 

:PEN 2 

1940 CALL &BB06 >D0< 

1950 CLS:RETURN >FR< 

i960 REM ;>«T< 

1970 REM — page de présentation — >6U< 

1989 REM vftX 

1990 MODE 0:ti*="CALCUL MENTAL" >Si< 
2000 INK 1,17s INK 2,15s INK 3,19:INK >PC< 

4,11 
2010 FOR ti=l TO 14 >0D< 

2020 lti*=MID*(ti*,tl,l! >0E< 
2030 IF lti»=" " THEN 2110 >VF< 
2040 FOR chu= 1 TO 15 >TG< 

2050 PEN ti MOD 4+1 >JH< 

2060 LOCATE 3+ti,chu:PRINT lti* >XJ< 
2070 no=400-12*ti-12»chu:SQUND l.no >VK< 
,8,10sSOUND 2,no»0.5,8,8 
2080 LOCATE 3+ti,chusPRINT" " >FL< 
2090 NEXT chu >L«< 

2100 LOCATE 3+ti,chu:PRINT lti* >R0< 
2110 NEXT ti >FE< 

2120 FOR w=l TO 300: NEXT >BF< 
2130 SPEED INK 3, 3: BORDER 7,llsENV ÎB6< 
2,15,-l,15sS0UND 1,0,400,15,2,0,30: 
BUT 255,8:0UT 256,1: FOR mï TO 2000 



:NEXT HsOUT 256,0 

2140 BORDER 6:MODE l:FOR n=1 TO 100 >VH< 

0:NEXT 

2150 RETURN >PJ<: 

2160 REM m.< 

2170 REM redéfinition caractères >NL< 

2180 REM >QM< 

2190 SYMBOL AFTER >MN< 

2200 SYMBOL 200,6,6,6,6,6,31,63,127 >ZE< 

2210 SYMBOL 201,0,0,0,0,0,255,254,2 >KF< 

54 

2220 SYMBOL 202,0,127,127,112,112,2 >NG< 

40,112,112 

2230 SYMBOL 203,255,255,255,127,63, >TH< 

15,15,6 

2240 SYMBOL 204,255,255,255,255,0,0 >LK 

,6 

2250 SYMBOL 205,127,255,255,255,255 >JK< 

,120,120,48 

2260 lo$=CHR$(200)+CHR*(201i+CHR*(2 >VL< 

02) +CHRS (10) +CHRI (8) +CHR» (8) +CHR* (8 

)+CHR*(203!+CHR*!204)+CHRt(2à5) 

2270 SYMBOL 206,63,63,255,255,63,15 >RM< 

,15,6 

2280 SYMBOL 207,255,255,255,255,255 >LN< 

,0,0,0 

2290 SYMBOL 208,255,255,255,255,255 >PP< 

,60,60,24 

2300 wv»=CHR*(206)+CHR*(207)+CHR*l2 >CF< 

08! 

2316 SYMBOL 209,0,0,0,0,3,14,51.63 >BG< 

2320 SYMBOL 210,0,28,51,255,204,127 >FH< 

,204,255 

2330 SYMBOL 211,0,0,0,192,240,156,2 >RJ< 

43,255 

2340 Mp*=CHR*!209i+CHR$(210)+CHR*i2 >QK< 

11) 

2350 ef*=CHR*(10)+" " >U|_< 

2360 FOR i=l TO 10s w*=w$+uv*; NEXT i >NM< 

2370 tr$=lo*+K$ ;:>mn< 

2380 REM — accents — >XP< 

2390 SYMBOL 212,12,24,60,102,126,96 >Ufl< 
-,60 

2400 SYMBOL 213,48,24,60,102,126,96 >N6< 
,60 

2410 SYMBOL 214,24,36,60,102,126,96 >VH< 
,60 

2420 SVMBOL 215,24,36,56,24,24,24,6 >NJ< 


2430 REM — fuiree — >MK< 

2440 SYMBOL 216,0,0,0,3,3 >DL< 
2450 SYMBOL 217,0,0,24,60,60,24 >JM< 
2460 SYMBOL 218,0,24,60,126,126,60, >PN< 
24 
2470 RETURN >vp< 

2480 REM >AQ( 

2490 REM — double hauteur — >MR< 



2500 REM >TH< 

2510 RESTORE 2610 >6J< 

2520d*=STRIN6*(81,32):d»="" >AK< 

2530 FOR i=0 TO 80 >JL< 

2540 REA0 jj:d*=d*+CHR*(jj! >WH< 

2550 NEXT i >YN< 

2560 d=FNdeek(6d*+l) >AP< 

2570 LOCATE xx,yy >KQ< 

2580 FOR i=l TO LEN(x$) >TR< 

2590 POKE d+l,ASC(MID*(s*,i,l)) >BT< 

2600 CALL d:NEXT i >PJ< 

2610 DATA &3e,&6e,tiCd.!a5,4bb,M6,i >*:< 

fs,&3e,&t9 

2620 DATA tad,!i5a,tt>b,k7a,taU5a,S. >HL< 

bb,8.0e,Si04,8!7e 

2630 DATA 4cd,t5a,Mib,Jicd,l[5a,&bb,li >JM< 

23,Wd,£»,&f5 

2640 DATA 114,l<20,iie7,&3e,irfe,tai,li >BN< 

5a,8ibb,&3e,8«a 

2650 DATA &cd,85a,8*b,J3e,8!08,tal,!! >LP< 

5a,îèb,&3e,«< 

2660 DATA taU5a,4bb,&3e,&0b,tai,& >KK 

5a,!..bb,!<c9,&.5a 

2670 DATA libb,S3e,&8a,4cd,45a,ÎÉb,li >JR< 

3e,!*8,ted,&5a 

2680 DATA à>b,i3e,frK,fa:d,&5a,&bb,4 >AT< 

3e,&0b,i<cd,i<5a 

2690 DATA &bb,ic9 >TIK 

2700 RETURN >*< 

2710 REM >yL< 

2720 REM — départ du train — /fH< 

2730 REM m< 

2740 ttr*="":»*="":FOR i=i TO j >BP< 
2750 k*=n*+CHR»(15)+"C"+wv*+CHR*(11 >Afl< 
)+CHRttB)+CHR*(8!+CHRt(8)+CHR*!!5!+ 
"B"+wp*+CHR*<10) 

2760 NEXT >XR< 

2770 llo*=CHR»U5)+"C"+lo* >JT< 
2780 PEN lsttr*=llot+u*+CHR*(32)+CH >GO< 
R*(lli+CHR*(8)+CHR*(32) 
2790 CLS#2sxt=35-.j >AV< 

2800 FOR i=36-j«3 TO 1 STEP -1 >ML< 
2810 LOCATE i,yt:PRINT ttr* >VM< 
2820 PEN 1 >XN< 

2830 LOCATE i,21tWHNT CHR*(216i:;G >«*>< 
OSUB 2860:LOCATE i+l,20:PRINT CHR$i 
217);:60SUB 2860:LOCATE i+2,19:PRIN 
T CHR*(218);:G0SUB 2860 
2840 NEXT >WB< 

2850 RETURN >XR< 

2860 IF i=l THEN 2910 >6T< 

2870 SOUND 1,4000,0,0,1,1,15 >EU< 
2880 IF «=100 THEN «=50 ELSE «=100 >tV< 
2890 IF 2>10 THEN 2=0 >BW< 

2900 z=z+l:MASK m,0:PLOT 1,2B:DRAWR >RM< 
639,0:PLOTR -5+z*(z=10),-2:DRA«R - 
633,0 

2910 PRINT CHR*(8i+CHR*(32) >FN< 
2920 RETURN >VP< 
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AUTO-CHOC 



Jean-Marc BELORGANE 



Le but du jeu est assez similaire à celui du PAC-MAN. C'est-à-dire 

qu'il faut ramasser le plus grand nombre de pièces d'or éparpillées tout 

au long d'un circuit, afin d'obtenir le maximum de points. 
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L'originalité de cette version réside dans 
le fait que les PAC-MEN sont rempla- 
cés par deux formules 1 : 

- l'une est conduite par le joueur, 
-l'autre par l' AMSTRAD (ou plutôt 
parJR). 

Le rôle de la voiture conduite par 
l'AMSTRAD est de provoquer une col- 
lision avec la voiture du joueur, en se 
plaçant intentionnellement sur sa route. 

MODE DE JEU 

Il est possible de jouer : 

- à un joueur, 

- à deux joueurs, 

- avec le clavier, 

- avec un joystick (le même pour les 
deux joueurs). 

La règle du jeu ainsi que les modes de 
jeu sont expliqués de manière plus éten- 
due dans le programme. 
Le logiciel "AUTO-CHOC" est compo- 
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se de 2 modules : 

- AUTOCHOC.BAS qui constitue la 
présentation du jeu, 

-AUTOCHOC.DAT qui constitue le 
programme en lui-même. 
Le module AUTOCHOC.DAT est 
"mergé" en fin du module AUTO- 
CHOC.BAS à la ligne 3390. De ce 
fait, ce module AUTOCHOC.DAT doit 
être sauvegardé par : SAVE "AUTO- 
CHOCDAT", A pour les utilisateurs 
d'un 464 accouplé à un lecteur DD1, 
dans le cas contraire, SAVE" 
AUTOCHOC.DAT" suffira. 
La routine binaire incluse dans le se- 
cond programme permet d'intégrer au 
basic Locomotive V1.0 de l'AMS- 
TRAD, 5 nouvelles commandes : - 

I COPYCHR, X, Y, @ Caractère* 

I GPEN, Couleur 

I CURSEUR 

| AUTOJOUEUR, X, Y, ix, jy 

! AUTOAMSTRAD, X, Y, ox, py 



I COPYCHR, X, Y, @ Caractère% 
Cette commande place dans la variable 
entière Caractère% le cpde ASCII du ca- 
ractère situé aux coordonnées X et Y du 
curseur texte. 

I GPEN, Couleur 

Cette commande initialise la couleur du 
PEN GRAPHIC avec la couleur 'Cou- 
leur'. La variable 'Couleur' peut être un 
nombre compris entre et 15. 

| CURSEUR 

Cette commande permet d'afficher ou 
d'effacer le bloc curseur texte à la posi- 
tion actuelle du curseur texte. 

| AUTOJOUEUR, X, Y, ix, jy 
Cette commande affiche la formule 1 
du joueur aux coordonnées X et Y du 
curseur texte suivant les valeurs de ix 
et de jy. 

- Si ix = -1 la commande affiche l'auto 
dirigée vers la gauche (jy = dans ce 
cas). 

- Si ix = 1 la commande affiche l'auto 
dirigée vers la droite (jy = dans ce 
cas). 

. Si jy = -1 la commande affiche l'auto 
dirigée vers le haut (ix = dans ce cas). 

- Si jy = 1 la commande affiche l'auto 
dirigée vers le bas (ix = dans ce cas). 

| AUTOAMSTRAD, X, Y, ox, py 
Cette commande affiche la formule 1 de 
l'AMSTRAD aux coordonnées X et Y 
du curseur texte suivant les valeurs de 
ox et de py. 

- Si ox = -1 la commande affiche l'auto 
dirigée vers la gauche (py = dans ce 
cas). 

- Si ox = 1 la commande affiche l'auto 
dirigée vers la droite (py = dans ce 
cas). 
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- Si py = -1 la commande affiche l'auto 
dirigée vers le haut (ox = dans ce 
cas). 

- Si py = 1 la commande affiche l'auto 
dirigée vers le bas (ox = dans ce cas ). 




90 

186 

ne 

129 
138 
149 
159 

169 
171) 
180 
190 
200 
210 
220 



,25: 
250 
269 



REM^******#***************** 
REM * * 

REM* AUTO - CHOC * 
REM * * 

REM * 
REM * 
REM » 
REM * 
REM ♦ 
REM * 

REM * * 

REM * AMSTRAD CPC-464 + DD1 » 
REM * * 

REM ************************* 
REM ***** PRESENTATION ****** 
REM ##**##******** 



par 



Jean-Mare BEL0R6ANE 
llias JuMBosoft 



sur 



' V2.0 MAI 1987 

IF HIMEM=37119 THEN 1670 

' REDEFINITION DES CARACTERES 

SYMBOL AFTER 127 

REM — ;> LA FORMULE 1 

SYMBOL 165,9,0,0,252,252,252,251 

SYMBOL 166,0,0,0,0,0,0,8,7 
SYMBOL 167, 0, 0, 0, 0, 0, 0, 127, 255 
SYMBOL 168,0,0,0,0,64,240,248,24 



>VB< 
>I*X 
>MX 
!'YE< 
>KF< 
>AS< 
>PH< 
>LJ< 
>DK< 
>UB< 
>YC< 
>VD< 
;AE< 
>8F; 
>T6< 
>BH< 
>HJ< 
>ZK< 
>BL< 
>BC< 
>MD< 
>R£< 
>0F< 
>PG< 

>DH< 
>FJ< 



280 SYMBOL 169,0,0,0,0,0,0,0,32 >KL< 
290 SYMBOL 170,60,63,56,48,16,16,8,7 >FM< 

300 SYMBOL 171,127,255,255,127,127,1 >AD< 

27,255,0 

310 SYMBOL 172,255,255,255,255,255,2 >LE< 

55,255,0 

329 SYMBOL 173,240,255,254,252, 254,2->YF< 
52,255,0 

330 SYMBOL 174,240,255,248,240,240,1 >ZB< 
12,24B,7 

340 SYMBOL 175,0,0,192,112,124,127,2 >RH< 

55,0 

350 REM — > LES PNEUS DE LA Fi >LJ< 

360 SYMBOL 176,0,7,8,16,16,16,8,7 >LK< 



378 SYMBOL 177,0,0,128,64,64,64,128, >YL< 



380 REM — > LE COTE DE LA FI >VM< 

390 SYMBOL 178,0,0,31,31,31,31,31,0 >MN< 

40» SYMBOL 179,0,0,255,255,255,255,2 >JE< 

55,0 

410 SYMBOL 180,0,0,224,240,240,249,2 >»F< 

40,0 

420 REM — > LE PILOTE >J6< 

430 SYMBOL 181,0,0,0,0,0,48,56,56 >LH< 

440 SYMBOL 182,48,0,0,0,0,0,0,0 >KJ< 

450 SYMBOL 183,192,0,0,0,0,0,0,0 >PK< 

460 REM — > ENJOLIVEURS DE LA FI >PL< 

470 SYMBOL 184,0,0,0,5,2,5,0,0 ,>NM< 

480 SYMBOL 185,6,9,2,2, 13,2,2,9 >TN< 

490 SYMBOL 186,0,0,0,9,128,0,0,0 >*< 

599 REM — > INVERSE DE CHR»(207i >UF< 
510 SYMBOL 128,85,179,85,170,85,170, ;>K6< 
85,170 

520 REM — > LE CIRCUIT ,>LH< 

530 SYMBOL 129,0,127,107,85,107,85,1 >XJ< 

07, 126 

540 SYMBOL 130,0,255,171,213,171,213 >YK< 

,255,9 

550 SYMBOL 131,0,254,170,214,170,214 >KL< 

,234,126 

560 SYMBOL 132,126,86,106,86,106,86, >JM< 

106, 126 

570 SYMBOL 133,126,214,170,214,170,2 >MN< 

14,254,6 

580 SYMBOL 134,126,87,107,85,197,85, >DP< 

127,0 

59» REM — > AUTO DE L'AMSTRAD >TQ< 

600 SYMBOL 135,90,126,90,24,24,219,2 >BB< 
55,195 

610 SYMBOL 136,195,255,219,24,24,99, >DH< 

126,90 

620 SYMBOL 137,224,231,66,127,127,66 >DJ< 

,231,224 

639 SYMBOL 138,7,231,66,254,254,66,2 )XK< 
31,7 

640 REM — > AUTO DES 2 JOUEURS >UL< 
650 SYMBOL 139,165,255,189,60,24,90, >PM< 
126,99 

660 SYMBOL 140,90,126,90,24,69,189,2 >GN< 

55, 165 

670 SYMBOL 141,224,71,242,127,127,24 )ZP< 

2,71,224 

680 SYMBOL 142,7,226,79,254,254,79,2 >P0< 

26,7 

690 REM — > PNEUS DE L'AMSTRAD >HR< 

799 SYMBOL 145,66,66,66,0,0,195,195, >AH< 

195 

710 SYMBOL 146,195,195,195,0,0,66,66 >CJ< 

,66 

720 SYMBOL 147,224,231,0,0,0,0,231,2 >VK< 

24 

730 SYMBOL 148,7,231,9,0,0,0,231,7 >LL< 

740 REM — > PNEUS DES 2 JOUEURS >JM< 



750 SYMBOL 149,129,129,153,24,0,66,6 >FN<^, 

6,66 

760 SYMBOL 150,66,66,66,0,24,153,129 >YP< 

,129 

770 SYMBOL 151,224,7,0,48,48,0,7,224 >UEK 

780 SYMBOL 152,7,224,0,24,24,0,224,7 >HR< 

790 >RT< 

809 IF HIMEM=37119 THEN 1670 >7J< 

810 OPENOUT "d":MEMORY HIMEM-hCLOSE >KK< 
OOT 

B20 MEMORY 37119;tot=0:so»=0:dta=0:a >HL< 
d=49109:erreur=0:liq=1099:RE5TORE il 

00 



839 WHILE S0HO422A AND erreur=9 


>ZM< 


849 501=0: ta«=9: 1 ig=l ig+10 


>KN< 


850 FOR n=l TO 7 


>NP< 


869 READ dtat 


>F0( 


870 dta=VAL("4"-Hlta*î:tai»=ta»+dt 


>AR< 


a 

880 POKE ad,dta:ad=ad+l 


>AT< 


890 NEXT 


>XU< 


990 READ son 


>i*< 


919 IF soiOta» THEN erreur*l ELSE 


Mt< 


tot=tot+tatn 




926 WEND 


>XM< 


939 WHÎLE so«0415B AND erreur=9 


>DN; 


949 sort: tam=0: 1 ig=l ij+10 


>LP< 


950 FOR n=l TO 3 


>KQ< 


960 READ dta$ 


>SR< 


970 dta=VAL("4"+dta*i:ta»=tâ«+dt 


)BT< 


a 

980 POKE ad,dta:ad=ad+l 


>BU< 


990 NEXT 


>YV< 


1009 READ son 


>DB< 


1Ô10 IF aouOtan THEN erreur=l ELSE 


>GC< 


tot=tat+tam 




1920 WEND 


>8D< 


1030 ' 


>FE< 


1940 IF tot=36025 THEN CALL 37120:60 


>YF< 


TO 1670 




1050 PRINT CHR$17i::M0DE 1:PEN 1 


jlg>: 


i960 PRINT: PRINT "ERREUR de DATAS": 


>LH\ 


1079 IF erreur THEN PRINT " a la lig 


>TJ< 


ne ":lig:PRINT:PRINT "tau =4";HEX$it 




am);" au lieu de 4"jHEX*(âo«i;" !!! 




";CHR$<7); 




1980 PRINT:PRINT:PRINT "tôt =":tot:" 


>ZK< 


au lieu de 36925 1 ! ! ":CHR$(7) :PRINT 




:STOP 




1090 REM 


;tl< 


1109 DATA 91, 9E, 91, 21, 9A, 91, CD, 4229 


>EC< 


1119 DATA D1,BC,C9, 90,00,99,90,4256 


>PD< 


1120 DATA 1F,91,C3,AF,91,C3,CD,4443 


>ZE< 


1130 DATA 9i,C3,D6,91,C3,D9,91,44E8 


>KF< 


1140 DATA C3,3A,92,43,4F,50,59,42CA 


>Q8< 


1150 DATA 43,48,D2,47,50,45,CE,4307 


>NH< 


1169 DATA 43,55,52,53,45,55,D2,42A9 


>XJ< 
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1178 DATA 41, 55, 54, 4F, 4A, 4F, 55, 4227 >RK< 

1188 BATA 45,55,D2.41,55,54,4F,42A5 >PL< 

1199 DATA 41, 40,53,54,52,41, C4,428C >KB< 

12êi3 DATA 00,20, 16,01. 0F,03,8C,40D5 >BD< 

1210 DATA 0S,0F,01,96,16,00,20,40E4 >VE< 

1220 DATA 16,91, 0F,03,SB,0B,0F,40CB >WF< 

1230 DATA 01, 95,16,00,20,16,01, WE3 >W6< 

1240 DATA 0F,03,8D,0B,0F,01,97,414E >YH< 

1250 DATA 16,00,20, 16, 01, 0F, 03,405F >MJ< 

1260 DATA 8E,08,0F,01, 98,16,00,4154 >QK< 

1270 DATA 20,16,01, 0F.01, 87, 08,40D6 >DL:: 

1280 DATA 0F, 03,91, 0F, 01, 16,00,4009 >RM< 

1290 DATA 20, 16,01, 0F,01, 88,08,4007 >HN< 

1300 DATA 0F,03,92,0F,01,16,00,îi0CA >UE< 

1310 DATA 20, 16,01, 0F,01, 89,08,4008 >CF< 

1320 DATA 0F, 03, 93, 0F, 01, 16,00, 40CB >Y6< 

1330 DATA 20,16,01, 0F,01,BA,08,40D9 >PH< 

1340 DATA 0F, 03, 94, 0F, 01 , 16, 00, 40CC >CJ< 

1350 DATA FE,03,C0,CD,78,BB,E5,44A6 >PK< 

1360 DATA DD,66,04,DD,6E,02,CD,4361 >DL< 

1370 DATA 75,BB,CD,60,BB,DD, 56,4446 >PH< 

1380 DATA 01,DD,5E,00,12,E1,C3,42F2 >UN< 

1390 DATA 75,BB,FE,0l,C0,DD,7E,444A >PP< 

1400 DATA 00,C3,DE,BB,C3,8A,BB,4464 >XF< 

1410 DATA FE,04,C0,DD,7E,02,3C,435B >K6< 

1420 DATA FE,00,20,03,C3,FE,91,4373 >JH< 

1430 DATA DD,7E,02,3C,FE,02,20,&2B9 >VJ< 

1440 DATA 03,C3,07,92,DD,7E,00,42BA >ZK< 

1450 DATA 3C,FE,00,CA,10,92,C3,4369 >FL< 

1460 DATA 19,92,06,0C,11,66,91,41CA >VH< 

1470 DATA CD,22,92,C9,06,0C, 11,4260 >Q*K 

1480 DATA 5F,91,CD,22,92,C9,06,4340 >LP< 

1490 DATA 0C,li, 47, 91, CD,22, 92,4276 >PQ< 

1500 DATA C9,06,0C,11, 53,91, CD, 429D >Q6< 

1510 DATA 22,92,C9,CD,i9,BD,DD,43FD >VH< 

1520 DATA 66,06,DD,6E,04,E5,E1,4381 >ZJ< 

1530 DATA E5,CD,75,BB,1A,13,CB,43DC >YK< 

1540 DATA 5A,BB,10,F4,Ei,C9,FE,44Cl >JL< 

1550 DATA 04,C0,BD,7E,02,3C,FE,435B >W< 

1560 DATA 00,20,03,C3,5F,92,DD,42B4 >GN< 

1570 DATA 7E,02,3C,FE,02,20,03,41DF >AP< 

1580 DATA C3,71,92,DD,7E,00,3C,435D >RGK 

1590 DATA FE,00,CA,6B,92,C3,7A,43FF >JR< 

1600 DATA 92,06,0E,11,A1,91,CD,42B6 >FH< 

1610 DATA 22, 92,C9,06,0E,11, 77,4219 >UJ< 

1620 DATA 91,CB,22,92,C9,06,0E,42EF >RK< 

1630 DATA 11, 93,91, CD,22,92,C9, 437F >PL< 

1640 DATA 06,0E,11,85,91,CD,22,422A >RM< 

1650 DATA 92,C9,00,415B >BN< 

1660 ' >9P< 

1670 REM — > PRESENTATION >MK 

1680 MODE 0; BORDER . >WR< 

1690 FOR i=0 TO 15: INK i,0:NEXT i . ., >QT<* 

1700 WINDOW #0,1, 20,1, 22:WIND0W «1,1 >ZJ< 
,20,23,25 

1710 PAPER 0:CLS:PEN kPAPER #1,1;CL >RK< 
S #1:PEN *1,0 

1720 TAGiMOVE 176,304; !BPEN,1:PRINT >NL< 
"AUTO-CHOC"; :TAB0FF 



1730 LOCATE tl,l,2:PRINT #1," ";CHR$ : 

(164);" JUMBOSOFT 1987" 

1740 ' 

1750 REM — > DESSIN DE LA FI 

1760 x=8:yl=10:y2=ll 

1770 LOCATE x,yl:PRINT CHR*(22)+CHRS 

(1); 

1780 FEN 4:L0CATE x,yi:PRINT M»tl6 : 

5)jCHR$il66);CHR$U67);CHR*(168);CHR 

$(169); 

1790 PEN 4:L0CATE x,y2:PRINT CHR»(17 

0);M»U71>iCHR$(172);CHR»(173!;CHR 

*U74);CHR«U75); 

1800 PEN 5:L0CATE x,y2:PRINT CHR$<17 

6);CHR*U77);" ":CHR$(176S;CHR*U77 

>i 

1810 PEN 6;L0CATE x,y2:PRINT " ";CHR 
t(17S);CHR*(179);CHR*C18*!; 

1820 PEN 7-.L0CATE x,yl:PR!NT " ; ■' 

HR$(181); 

1830 PEN 7;L0CATE x,y2:PRINT " - 

HR$(1B2);CBR$(183); 

1840 PEN 3:L0CATE x,y2:PRINT CHRtUB 

4);" ";CHR$UB5i:CHR$(lB6i; 

1850 PEN 2:L0CATE x,y2:PRINT CHR*(1B ; 

5!;CHR«(186!i" ";CHR*(184)j 

1860 LOCATE 1,1:PRINT CHR*(22)+CHR$! 

0>;:PEN 1 

1870 ' 

1880 REM — > DESSIN DES CADRES ET L ', 

0SAN6E 

1890 ORIBIN 0,49:!6FEN,1:DRAW 0,350: 

BRAWR 639,0:DRANR 0,-350:DRAWR -639, 



1900 MOVE 319,0:DRAW 0,175:DRAWR 319 
,175:DRAWR 319,-175:DRAWR -320,-175 
1910 

1920 REM — > DESSIN DU SOL EN 30 
1930 cy=175 

1940 MOVE 53,cy:DRAW 16,166,3 
1950 MOVE 89,cy:BRAN 57,144,2 
1960 MOVE 126, cy: DRAW 97,120,3 
1970 MOVE 160,cy:DRAtt 136,101,2 
1980 MOVE 192,cy:DRAW 176,78,3 
1990 MOVE 228,cy;DRAW 216,57,2 
2000 MOVE 265,cy:DRAW 257,35,3 
2010 MOVE 302,cy:DRAW 298,12,2 
2020 MOVE 335, cy: DRAW 339,14,3 
2030 MOVE 379, cy: DRAW 384,38,2 
2040 MOVE 417,cy:DRAW 434,65,3 
2050 MOVE 45B,cy:DRAW 477,88,2 
2060 MOVE 497,cy:DRAW 526,115,3 
2070 MOVE 53B,cy:DRAW 569,138,2 
2080 MOVE 578,cy:DRAW 618,164,3 
2090 16PEN, 1 

2100 MOVE 1,175: DRAW 639,175 
2110 MOVE 58, 144:DRAW 581,144 
2120 MOVE 96,122:DRAW 542,122 
2130 MOVE 138, 100: DRAW 501,100 



:>hm< 


2140 MOVE 179,78:DRAW 461,78 


>bh; 




2150 MOVE 218,57:DRAW 422,57 


>LJ< 


>PN< 


2160 MOVE 257,34:DRAW 383,34 


>LK< 


>KP< 


2170 MOVE 297,13:DRAW 337,13 


>JL< 


>UQ< 


2180 ' 


>NM< 


>ZR< 


2190 REM — > DESSIN DU C01N-I. 


>UN< 




2200 cy=350 


/PE< 


>AT< 


2210 MOVE 0,cy:DRAW 17,185,8 


>EF< 




2220 MOVE 0,cy:DRAW 38,194,9 


>(C8< 




2230 MOVE 0,cy:DRAW 53,204,10 


>TH< 


>HU< 


2240 MOVE 0,cy:DRAW 75,215,11 


>BJ< 




2250 MOVE 0,cy:DRAW 89,224,12 


>JK< 




2260 MOVE 0,cy:DRAW 109,234,13 


>BL< 


>SK< 


2270 MOVE 0,cy:DRAW 127,244,14 


>KH< 




2280 MOVE «,cy:DRAW 146,254,15 


>PN< 




2290 MOVE 0,cy:DRAW 161,265,8 


>PP< 


>DL< 


2300 MOVE 0,cy:DRAW 178,272,9 


;>NF< 




2310 MOVE 0,cy:DRAW 193,233,19 


>6G< 


>UM< 


2320 MOVE 0,cy:DRAW 215,293,11 


>EH< 




2330 MOVE 0,cy:DRAW 231,303,12 


>NJ< 


>YN< 


2340 MOVE 0,cy:DRAW 251,312,13 


>AK< 




2350 MOVE 0,cy:DRAW 267,323,14 


>ML< 


>DP< 


2360 MOVE 0,cy:DRAW 285,333,15 


,>QM< 




2370 MOVE 0,cy:DRAW 300,343,8 


>EN< 


>D8< 


2380 ' 


>9P< 




2390 REM — > DESSIN DU COIN-2 


ÏW 


>XR< 


2400 cx=639 


m< 




2410 MOVE es, cy; DRAW 334,343,9 


>ZH< ■ 


>UT< 


2420 MOVE cx,cy:DRAW 353,331,10 


>RJ< 


>BU< 


2430 MOVE cx,cy:DRAW 378,318,11 


>BK< 




2440 MOVE cs,cy:DRAW 392,309,12 


>EL< 


>DV< 


2450 MOVE cx,cy:DRAW 417,297,13 


>LM< 




2460 MOVE cx,cy:DRAW 437,285,14' 


>MN< 




2470 MOVE cx,cy:DRAW 458,274,15 


>QP\ 


>ML< 


24B0 MOVE cx,cy:DRAW 476,262,8 


>N0< 




2490 MOVE cx,cy:DRAW 496,252,9 


>RR< 


>NM< 


2500 MOVE cx.cyiDRAW 516,241,10 


>RH< 


>RN< 


2510 MOVE cx,cy:DRAW 536,231,11 


>VJ< 


>EP< 


2520 KOVE cx,cy;DRAW 558,218,12 


>GK< 


>TQ< 


2530 MOVE cx,cy:DRAW 577,209,13 


>KL< / 


>DR< 


2540 MOVE cx,cy:DRAW 598,197,14 


>XM< 


>XT< 


2550 MOVE cx,cy;DRAW 617,187,15 


>PN< 


>PU< 


2560 ' 


>«P< 


>NV< 


2570 REM — > DESSIN DU COIN-3 


>Y0< 


>EW< 


2580 MOVE ex, 0: DRAW 618,163,8 


>VR< 


>PC< 


2590 MOVE cx,0:DRAW 592,150,9 


>UT< 


>FD< 


2600 MOVE ex, 0: DRAW 569,136,10 


>MJ< 


>ME< 


2610 MOVE cx,0:DRAW 547,124,11 


>6K< 


>CF< 


2620 MOVE cx,0:SRAW 526,112,12 


>a< 


>T8< 


2630 MOVE cx,0:DRAW 502,101,13 


>WM< 


>LH< , 


2640 MOVE cx,0:DRAW 479,86,14 


>YN< 


>DJ< 


2650 MOVE cx,0:DRAW 457,76,15 


>VP\ 


>MK< 


2660 MOVE«,0:DRAW 435,62,8 


>LQ< 


>ML< 


2670 MOVE cx,0:DRAW 411,50.9 


>DR< 


>FM< 


2680 MOVE cx,0:DRAW 385,37,10 


>PT< 


>HD</ 


2690 MOVE cx,0:DRAW 359,23,11 


>MU< 


>LE<- 


2700 MOVE cx,0:DRAW 338,11,12 


>YK< 


>CF< 


2710 ' 


>ML< 


>N8< 


2720 REM — > DESSIN DU COIN-4 


>WM< 



2730 «OVE M:DRAU 299.11,13 


274« MÛVE 0,»:DRAW 278,22,14 


275» HOME »,»:DRAB 259,33,15 


276» KM 0,0:DRft» 239.45,8 


2779 MGVE ê.ësDRftW 219,54,9 


278* «OVE è,»:DRA« 201, M, 18 


279» MOVE 0,0:DRAH 177,76,11 


2880 MOVE 0,0:DRAN 163,87, 12 


281» MOME 6,0:DRAN 138,101,13 


2820 «OVE 0,0:DRAW 116.110,14 


2B30 «OVE 0,0: DRAW 97,123,15 


2840 «OVE 0,»:DRAW 76,133,8 


285» «OVE 0,0:DRA« 57,142,10 


286» «OVE 0,0:DRAW 37,154,12 


2870 «OVE 0.0:BRAW 18,165,14 


288» 


2890 REM — > REDESSIN DES CADRE ET 


LOSANGE 


2908 0RI6IN 0,4?:;6PEN,i:DRA» 0,350: 


DRAW 639.»:BRA»R 0,-350:DRAWR -639, 



291» «OVE 3l9.»;DRAW &,175:DRAHR 319 


. 175:DRAWR 319,-175:DRAWR -320.-175 


292» ' 


2930 REM — > ANIMATION 


*W DIH cou 1 eut- i 15); RESTORE 298» 


2950 FOR 1=0 TQ 15 


2960 REAO couleur (ii: INK i,couleur(i 



)TN< 
>UP< 
>XQ< 
>ZR< 
>ZT< 
>KU< 

>dv<; 

>TL< 
>KN< 
>HN< 

>#<. 
>VQ< 
>PR<, 

>UT< 

>vu< 



>RQ< 
>PR< 
>NT< 



2979 NEXT i:PRINT CHR*i7); 
298» DATA 0,26,26,0,6,11.9 
,8,15,18,24,23 
299» INK 2,0,26: INK 3,26,0 
3000 k=0:a=0:b=0:c=0:ad=2.2 
3010 FOR i=l TO 20:z*=INKEY$;NBT 
3020 RESTORE 3250 
303» WHILE 2$="" AND k<200 
3040 FOR j=0 TO 7 
305» FOR i=8 TO 15 

3060 l=(j+ii MOD 16:IF 1<8 THEN 1=1+ 
8 

307» INK l.couieurdî 
308» NEXT i:IF k>5» THEN a=a+l:IF a< 
61 THEN BOSUB 318» 
3090 k=k+l 
3100 NEXT j 
3110 z*=INKEY* 
312» «END: SOUND 135,0,1,0 
31» IF FRE(""K20000 THEN 339» ELSE 
CHAIN «ERBE " IAUTOCH0C.DAT", 3399,DE 
LETE 3390- 
3140 STOP 
315» 

316» RE« «MUSIQUE DE PRESENTATION* 
317» REM *********************** 
318» READ b,c 

319» IF b=100 THEN per=0:BOTD 3210 
320» per=ROUND ! 125000/ (449* (T ( (b-10 
WÏ2H1I ' ■ ■■:■ 



25, 2,3,6 >Y»< 



>RX< 
>ED< 
>EE( 
>EF< 

>M6: 
>DH< 
>NJ< 

m< 

>DL< 
>HH< 

>BN< 

>DE< 
>ZF< 
>B6< 

>DH< 



>XJ\ 
>LK< 
>ML< 
>UH< 

>YN< 
>RP< 

>YF< 



3210 SOUND 2,per,c*ad,13 

3220 SOUND 2.0,1,0 

3230 IF ad=2.2 AND a=33 THEN 



ûc»,: . 



324» RETURN 

325» DATA 1,5,3,5.5,10,8.10.8,10 

3269 DATA 10,10,8,10,5,10,1,10,1.5 

3270 DATA 3,5,5,10,5,10,3,10,1.10 
3280 DATA 3,20,3, 10,1,5,3,5,5, 1»,B 
3290 DATA 10,8,10,10,10,8,10,5,1» 
3300 DATA 1,10,1,5,3,5,5,10,5,10.3 
3310 DATA 10,3,10,1, 20,1, 10, 6, 2»,6 
3320 DATA 20,10, 10, 10,20, 10, 10,8 
333» DATA 10,8,10,5,10,1,10,3,20,3 
334» DATA i», 1,10,5,10,8,18.8, 1» 
3350 DATA 10,10,8, 1», 5,1», 1,18. 1,5 
336» DATA 3,5,5,10,5,10,3,10,3.10 
3370 DATA 1,40,100,30 

33B0 ' 

3390 REM — < LIBNE DE CHAINABE de i 

UTOCHOC.DAT > — 



>N6< 
>IH< 
>PJ< 

M< 
>BL< 
;TM< 

:>tn< 

>DP< 
>AQs 
>PS< 
>MH< 
>KJ< 
>RK< 
>UL< 
>TM\ 
>W< 
>AP< 
jpfli. 



ùsnh 



'J3 



3390 RtM ******************* 
3400 REM * * 

3410 REM* PROGRAMME PRINCIPAL ■ 
3420 REM * * 

3430 REM ******************* 
3440 REM 
3450 REM 
346» REM 



* INITIALISATION ** 
**************** 
347» ON BREAK BOSUB 8820 
3480 ENT -1,8,-1,1,16,1,1,8,-1,1 
3490 CLEAR:DEFINT b-z:DM no*(3),ta 
ble$(25; 

35»0 no$il!="! ! !gbs! ! !";no»(2)-'KFB 
O.NBSD":no*!3)="CFMPSHBOF" 
3510 in*=CHR*(24) :so*=CHR$i7! : image 
=0: ob jet=144: record =0 
3520 car*=CHR$ i22) +CHR* ! 1 ) +CHR* ! 15i 
+CHRt!3i+CHR$(207)+CHR$(81+CHR*(15) 
*CHR$(1)*CHR*(128)+CHRI(22)+CHR*(»! 
+CHR*(15)+CHR*(2) 
3530 RESTORE 6970 
3540 FOR 1=1 TO 25 
3550 READ d$ 
3560 FOR ]=1 TO LENid*) 
357» k=ASC{HID$(d$,j,»i 
3580 IF k=32 THEN table*iii=table 
«(i)*" " ELSE table*ii)=table*(i;+C 
HR»ik*30) 
3590 NEXT 



>BJK 
>FH< 
>FJ< 
>HK< 
>KL< 
>UM< 
BN< 
BP< 
DQ< 
KR< 
KT< 

>UJ< 

>YK< 

>JL< 



>ZM< 

>LN< 
>VP< 

>m< 

>BR< 

>LT< 



360» NEXT >ÛKt 

361» >«L\ 

3620 REM »*** RE6LES BU JEU **** >MM< 

363» REM *************** >EN< 



364» MUDE hCALL 



2: INK 2,8: INK >GP< 



"A U T - C 



365» lOCATE 12,1:PRINT 

H C"; 
3660 LOCATE lè,3:PRINT CHR$U64ii" 
Jean-Marc BELORBANE" 
3670 LOCATE 14,7:PRINT "RESLES DU J 
EU* 

368» LOCATE 1,1»:PRINT " Assis au v 
olant d'une superbe FERRARI."; 
369» LOCATE 1,11:PRINT "vous devez 
essayer de rester le plus ion": 
3700 LOCATE 1,12:PRINT "-gtemps pos 
sible sur la piste, en ramas-"; 
3710 LOCATE 1,13:PRINT "sant au pas 
sape les pièces d'or eparpil-"; 
372» LOCATE 1,14:PRINT "iees sur vo 
tre chemin. "; 
3730 REM 

3740 LOCATE i,17:F'RINT " J ai bien 
dit essayer car comme vous"; 
375» LOCATE 1,18:PRINT "vous en dou 
tez, 1 ignoble JR a bors de "; 
3760 LOCATE 1.19:PRINT "sa LUCIFER 
2000 est la pour taire echou-"; 
377» LOCATE 1,20:PRINT "er votre ai 
ssion en se plaçant voiontai-"; 
3780 LOCATE 1,21:PRINT "renient sur 
votre route...": 

3798 BOSUB 859» ' ATTENTE D'UNE TOU 
CHE 

3800 CLS 
3810 LOCATE !2,i:PRINT "A U T - C 

H C": 
3826 LOCATE 10,3:PRINT CHR$U64);" 
Jean-Marc BELORBANE" 
383» LOCATE 14,6:PRINT "REGLES BU J 
EU" 

3840 LOCATE 1, 8:PRINT "-Les touche 
s de commandes de votre FER-"; 
3850 LOCATE 1, 9:PRINT "RARI sont i 
es suivantes :"; 

3866 LOCATE 6,11:PEN 2:PRINT "A";:P 
EN llPRINT " pour ";:PEN 3:PRINT "v 
ous diriger en HAUT"; 
387» LOCATE 6,13:PEN 2:PRINT "Z»;:P 
EN hPRINT " pour "::PEN 3:PRINT "v 
ous diriger en BAS"; 
3880 LOCATE 6,15:PEN 2;PRINT "/";:P 
EN llPRINT " pour ";:PEN 3:PRINT "v 
ous diriger a BAUCHE"; 
3890 LOCATE 6,17:PEN 2:PRINT 
EN hPRINT " pour ";:PEN 3:PRINT "v 
ous diriger a DROITE"; 
3906 LOCATE 1,19:PEN 2:PRINT "ESPAC 



;TQ< 

>UR< 

>UT< 

>CU< 

>HV< ' 

>NL< 

>QM< 

>XN< 

>Wi 
>K0< 

;VR\ 

>AT< 

>tHK 

>MV< 

m< 
>ôm 

)RP< 
>Q9< 

>YR< 
>JT< 

>BU< 

>gv<: 



:P >NX< 



>DN< 
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E";:PEN iiPRINT " pour ";:PEN 3:PRI 
NT "actionner le TURBO"; 
3910 LOCATE 1,21:PEN lsPRINT "-Bien 
entendu il est également possible" 

3920 LOCATE 1,22:PR1NT "de jouer av 

ec le JOYSTICK..." 

3930 G05UB 8596 

3940 ' 

3958 «ODE 1: BORDER 3 

3960 INK B,8lINK 1,26:INK 2,9: INK 3 

,15 

3976 HINDOU #0, 1,40, 1,25:PEN #8,1 

:PAPER #0,8 

3980 HINDOU #1,31,39, 1,21:PEN #1,1 

:PAPER #1,0 

3990 HINDOU #2,3!,39,22,25:PEN #2,0 

:PAPER #2.1 

4060 HINDOU #3,30,30, 1,25:PEN #3,0 

:PAPER #3,2 

4010 HINDOU #4,40,40, 1,25:PEN #4,0 

:PAPER #4,2 

4020 CLS#0:CLS#1:CLS#4:CLS#2:CLS#3 

4030 ' 

4040 REM « AFFICHAGE GENERAL ** 

4050 REM ******************* 

4040 GOSUB 6910 ' Affichage du cire 

uit 

4070 GOSUB 7258 ' Affichage du joue 

ur 1 

40B0 GOSUB 7370 " Affichage du joue 

ur 2 

4096 GOSUB 7496 : Affichage du reco 

rd 

4106 BOSUB 7740 ' Affichage du titr 

e 

4110 GOSUB 7B90 ' Affichage de TURB 



4126 BOSUB 8020 ' Affichage de BONU 

S 

4130 GOSUB 8396 * Musigue No2 

4140 ' 

4150 REM ***** INTRODUCTION ***** 

4160 REM ************** 

4170 HINDOU SHAP 0,2: CLS 

4180. LOCATE l.kFRINT "COMBIEN"; 

4190 LOCATE 1,2:PRINT " DE"; 

4200 LOCATE 1,3:PRINT "JOUEURS"; 

4210 LOCATE 1,4:PRINT "1 ou 2 Y"; 

4220 j=0:ÉVERY 15,3 GOSUB 8556 

4230 GOSUB 8720: ' V1DA6E DU BUFFER 

CLAVIER 

4246 jo$=INKEY»; IF jo*=" THEN 4240 

4250 IF j0*O"l" AND jo*<>' ; 2" THEN 

PRINT 50$;:GOTO 4240 

4260 5to3=REMAIN(3):!CURSEUR:PRINT 

jot;:jo=VAL(jo») 

4270 GOSUB 8770: TEMPORISATION 



>NP< 



>AR< 
>UT\ 
>CU< 

>w< 

>PH< 

>DX< 

>TY<, 
/ 

;>me<, 

>UF< 

>HG< 
>JH< 
>DJ< 
>JK< 

>AL\ 

>UH< 

>m< 

>RP< 

>HF< 

;û;G< 
)UH< 

>JJ< 

LK< 

KL< 

HMi 

«N< 

RPV 

•PQ< 

NB< 
>PH< 
>UJ< 
>YK< 

>LL< 

>AM< 

>w< 

>XP< 



42B0 CLS: HINDOU SHAP 2,0: BOSUB 7740 >BQ< 

4290 ' >TR< 

4300 REM ******** PARTIE ******** >MH< 

4310 REM ******** >FJ< 

4326 parcoursl=0:parcours2=0: joueur >EK< 

=0: pistea=6: p iste j=0: sort ie=0 

4330 partiel=l:partie2=l:aptsl=0:ap >XL< 

t52=0:«ei=6:route=0:bonus=0:coefl=l J, - 

:coef2=l 

4348 REM >UM< 

4350 HHILE partieK4 AND partie2<4 >i!N< 

4360 BOSUB 4640 ' Partie du joueu >JP< 

r 1 

4370 partiel=partiet+l: IF partiel >QQ< 

>î THEN BOSUB 4830 

4380 IF jo=2 THEN GOSUB 4956 ' Pa >NR< 

rtie du joueur 2 

4390 IF jo=2 THEN partie2=partie2 >MT< 

♦Il IF partie2)3 THEN BOSUB 5140 

4400 UEND >UJ< 

4410 ' >LK< 

4420 REM ****** FIN DU JEU ****** >VL< 

4430 REM ************ >RM< 

4440 IF aptsl>=apts2 THEN «el=aptsl >UN< 

ELSE nei-apts2 

4450 IF ieDrecord THEN GOSUB 7550 >UF< 

4460 REM >XQ< 

4478 HINDOU SHAP 0,2: CLS >UR< 

4480 LOCATE 1,2:PRINT "ON REJOUE"; >LT< 

4490 LOCATE 1,3:PRINT "UNE AUTRE"; >QU< 

4500 LOCATE 1,4:PRINT "PARTIE ?"; >YK< 

4510 J=0:EVERY 15,3 BOSUB 8558 >UL< 

4520 BOSUB 8720 >QM< 

4530 rept=LOUER$(INKEY*):IF rep*="" >PN< 

THEN 4530 

4540 IF rep*<>"o" AND rep*0"n" THE >MP< 
N PRINT so$;:60T0 4536 

4550 sto3=REMAIN(3):ICURSEUR:PRINT >MQ< 
rep$; 

4560 GOSUB 8770 >AR< 

4578 HINDOU SHAP 2,0 >LT< 

4580 IF rept="o" THEN i=FRE(""):SOT >RU< 
4670 ' Retour a L'AFFICHAGE BENE 
RAL K 

4590 CLEARiRUN >YV< 

4600 >ML< 

.4616 >NM< 

4620 REM ** PARTIE DU JOUEUR-1 ** >DN< 

4630 REM ******************** >JP< 

4640 BOSUB 7890:SOSUB 8020: joueur=l >PQ< 
iLOCATE #l,9-2*partiel,6:PRINT #1," 

4650 turbo=0:drap=l:yturbo=6 >TR< 

4660 LOCATE #1,1,2:PRINT #l,in$;"JO >MT< 

UEUR: l";in$; 

4678 route=parcoursl MOD 5:coefl=l+ >JU< 

INT(parcoursl/5) 

4680 BOSUB 5260 ' GESTION DU JOUEUR >BV< 



4690 IF point MOD 121=0 THEN point= >HU< 
0:parcoursl=parcoursl+l:6OTQ 4670 
4766 LOCATE #1,1,2:PRINT 11, "JOUEUR >XM< 
: 1"; 

4718 RETURN >UN< 

4720 ' >QP< 

4736 REM * AFFICHAGE SCORE- 1 * >EB< 
4746 REM ******************* >QR< 
4756 aptsl=aptsl+coefl:aptsl=aptsl >TT< 
MOD 18000:point=point+l 
4760 LOCATE #1,1,4 >CU< 

4776 PRINT #l,RIGHTt("0080"+MID»(ST >SV< 
R*(aptsl),2),4) 

4780 FOR 1=40 TO 1 STEP -10:SOUND 4 >«H< 
; 1,0.5, 12: NEXT 

4796 RETURN )CX< 

4800 ' >PN< 

4810 REM * 6AME OVER JOUEUR-1 * >EP< 
4826 REM ******************** >KQ< 
4836 GOSUB 8320 >QR< 

4846 FOR n=l TO 5 >RT< 

4850 LOCATE #1 , 1 , 2: PRINT #1 , "GAME ) HK 
OVER"; 

4860 BOSUB 8776: LOCATE #1,1,2 >PV< 
4870 PEN #1,3:PRINT #1, "JOUEUR: 1 >ZH< 

4880 PEN #1,1: GOSUB 8770 >HX< 
4890 NEXT n:SOUND 135,0,1,0 >UÏ< 
4900 LOCATE #1,1,6:PEN #1,3:PRINT # >DP< 
1,"GAME OVER";:PEN #1,1 
4910 RETURN >UQ< 

4920 ' >TR< 

4930 REM ** PARTIE DU JOUEUR-2 »* >JT< 
4940 REM ******#*#**#******** >NU< 
4950 BOSUB 7890: BOSUB B820: joueur=2 >XV< 
:LOCATE #l,9-2*partie2,14:PRINT #1, 

4960 turbo=0:drap=l:yturbo=6 >XH< 

4978 LOCATE #1,1,10:PRINT #l,in*;"J >UX< 

OUEUR: 2"; in»; 

49B0 route=parcours2 MOD 5:coef2=i+ >RY< 

INT(parcours2/5) 

4990 GOSUB 5260 ' SESTION DU JOUEUR >FZ< 

5608 IF point MOD 121=0 THEN point= >ZF< 

0:parcours2=parcours2+l:GOTO 4988 

5010 LOCATE #1,1,10:PRINT #1, "JOUEU >US< 

R: 2": 

5020 RETURN >NH< 

5636 ' >KJ< 

5040 REM * AFFICHAGE 5C0RE-2 * >AK< 

5650 REM ******************* >KL< 

5060 apts2=apts2tcœf2:apt52=apt52 ;TM< 

MOD 10000: point=point+l 

5676 LOCATE #1,1,12 >YN< 

5680 PRINT #1,RISHTJ("0000"+MID$(ST >CP< 

R*(apts2),2),4) 

5696 FOR i=40 TO 1 STEP -10: SOUND 4 >EQ< 

,i,0.5,12:NEXT 
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5100 RETURN >MG< 

511» >JH< 

5129 REM * GAME OVER JOUEUR-2 * >AJ< 

513» REM ******************** >EK< 

51*0 SOSUB 8326 >KL< 

515» FOR n=l TO 5 >LM< 

514» LOCATE #1,1,1»:PRINT ll/GAH >TN< 
E OVER"; ' 

517» GOSUB 8779-.L0CATE 11,1,16 >KP< 

518» FBI #1,3:PRINT 11, "JOUEUR: 2 >VQ< 

519» PEN #1,1: GOSUB B77» >CR< 

5206 NEXT n:SOUND 135,0,1,0 >FH< 

5210 LOCflTE #1,1,14:PEN *1,3:PRINT >ZJ< 
11, "GAME OVER"; : PEN 11,1 

5220 RETURN >QK< 

523» >HL< 

524» REH * GESTION DES JOUEURS * >NM< 

5256 REH WHHHHHIHHHHHHHHHHHH >DN< 

5260 Iâ5t=»:point=l:bonu5=190:ybonu >TP< 

5=6:dbonus=l:sortie=0 

5278 x3=17:y3=2+2*route:ox=l:py=0;o >BQ< 

bjet=32:pistea-5-route 

5280 x=16: y=6: ix=-l : jy=â: image=32:p >UR< 

istej=3: GOSUB 691» 

529» SOUND 1,4999,33, 12,,, 15:GOSUB >KT< 

553»:L0CATE 13,13:PRINT " 19» "; 

5360 REH >9J< 

531» WHILE sortie=9 AND point HOD 1 >EK< 

2109 

5326 !C0PYCHR,8+ix,y+jy,«i«ags >ZL< 

533» GOSUB 6090: IF sortie THEN 54 >TM< 

30 ' GESTION DES COLLISIONS 

5340 IF iuaqe=32 THEN GOSUB 5510: >KN< 

60TO 5370 

5356 IF image=144 THEN GOSUB 551» >BP< 

ilF joueur=l THEN GOSUB 475» ELSE G 

OSUB 5060 

5366 IF image=132 OR i»age=13» TH >JQ< 

EN GOSUB 5590 

5376 x=x+ixiy=y+jy >BR< 

538» GOSUB 636» ' GESTION AUTO AH >ET< 

STRAB 

539» IF y<=15 AND y>=ll THEN 60SU >QU< 

B 569» 

54»0 IF x<«17 AND s>=13 THEN 60SU >LK< 

B 5890 ; " 

5410 IF yturbo<=24 THEN SOSUB 797 >YL< 

0:1F turbo THEN 543» ' GESTION DU T 

URBO 

542» IF dbonus THEN SOSUB 8100 ' >HM< 

GESTION DU BONUS 

543» WEND >AN< 

544» LOCATE x,y:PRINT " »;:LOCATE s >ZP< 

3,y3:PRINT " ": 

545» IF point HOD 121=0 THEN GOSUB >EQ< 

B200 ' CALCUL DU B0NU5 

5466 SOUND 135,0,1,6 >VR< 

5470 RETURN >YK 



548» >VU< 

5490 REH *AFFI. AUTO JOUEUR 112» >ZV< 

550» REH ********************* >BL< 

551» SOUND 1,46»0,23,12„, 15 >EH< 

5529 LOCATE x,y:PRINT " "; >YN< 
553» :AUTOJOUEUR,x+ix,y+jy,ix,jy:RE >EP< 
TURN 

554» STOP >DQ< 

5558 >TR< 

556» REH «CHANGEMENT DE DIRECTION* >PT< 

557» REH *********************** >AU< 

5580 REH «POUR LE JOUEUR >Z« 

559» IF i»age=132 THEN 563» >DW< 
56«0 IF jy=-l THEN jy=»:ix=-l: GOSUB >Pfl< 
5510:RETURN 

5618 IF jy=l THEN jy=£i: ix=l:GOSUB >TN< 
5510:RETURN 

562» REM >t|p< 

563» IF ix=-l TtCN is=»:iy=l:GOSUB >Rfl< 
5519: RETURN 

5649 IF ix=l THEN ix=9:jy=-l:G0SUB >TR{ 
5510: RETURN 

5650 STOP >FK 
5660 >VU< 

5679 REM *HOUVEMENT LATERAL JOUEUR» >KV< 

5680 REM ************************ >YN< 
5699 IF INKEY(22)=0 OR (J0Y19) (WD >JX< 
B)=8 THEN GOSUB 5730:RETURN 

5790 IF INKEY(39)=9 OR (JOY(0) AND >NN< 
4) =4 THEN GOSUB 5890: RETURN 

5719 RETURN ;>VP< 

5720 REM « A DROITE >H8< 

5739 IF x=28 OR x=10 THEN RETURN >BR< 

5740 IF jy=I AND y=15 THEN RETURN >HK 
575» IF jy—1 AND y=ll THEN RETURN >DU< 
5760 ix=2:BOSUB 5516: x=x+2: ix=ê >DV< 
5770 IF jy=l THEN pistej=piste;-l E >8W< 
LSE pi5tej=piatej+l 

5789 RETURN >CX< 

5799 REM * A GAUCHE >HY< 

5899 IF x=29 OR x=2 THEN RETURN >PF'< 

581» IF jy=l AND y=15 THEN RETURN >FO< 

5826 IF jy=-l AND y=ll THEN RETURN >BR< 

583» ix=-2:60SUB 551»:x=x-2:ix=» >CT< 

584» IF jy*l THEN pistej=pistejtl E >EU< 
LSE pi5tej=pistej-l 

5850 RETURN >AV< 

586» ' >XkK 

5B7» REH MOUVEMENT VERTICAL JOUEUR >NX< 

5889 REM ************************* >ky< 

5890 IF INKEY(71)=» OR (JOYI0) AND >EZ< 
21=2 THEN GOSUB 5930: RETURN 

5990 IF INKEY(69)=0 OR (JOY(9) AND >PQ< 

1>=1 THEN GOSUB 4909: RETURN 

5910 RETURN >XR< 

5929 REM * EN BAS >HT< 

5930 IF y=24 OR y=l» THEN RETURN >8U< 
5940 IF ix=l AND x=17 THEN RETURN >JV< 



5950 IF ix=-l AND x=l3 THEN RETURN >EW< 

5969 jy=2:G0SUB 551»:y=y+2:jy=9 >MX< 

597» IF ix=l THEN pistej=pistej+l E >GY< 

LSE pistej=pistej-l 

598» RETURN 

5999 REM * EN HAUT 

699» IF y=16 OR y=2 THEN RETURN 

601» IF ix=l ANDx=17 THEN RETURN 

6929 IF ix=-l AND x=13 THEN RETURN 

6030 jy=-2:GQSUB 5510:y=y-2: jy=» >BK< 

6949 IF ix=l THEN pistej=pistej-l E >VL< 

LSE pi5tej=pistej+l 

6058 RETURN 

686» 

6878 REH «GESTION DES COLLISIONS* 

6886 REH ********************** 

6999 IF itage>134 AND i«age<139 THE >RR< 

N GOSUB 5529: GOTO 6136 

6199 IF objet>148 AND objet<153 THE >DH< 

N 6139 

6119 IF x=x3 AND y=y3 THEN 6139 

6126 RETURN 

6139 LOCATE s3,y3:PRINT " "; 

6148 PEN l::C0PYCHR,x+ix,y+jy,8i:IF >JH 
i>148 AND i<153 THEN LXATE x+ix,y 

♦jyiPRINT " ": 

6150 SOUND 135,9, 1,0: SOUND 4,59,219 

,13,, 1 

6169 FOR k=l TO 4 

4179 LOCATE 19+2*k,12:PEN 3:PRINT 

HID$("AUTO",k,l);:PEN 1 

6186 IAUTOJOUEUR,x,y,»,-l:BOSUB 6 
310 

6190 

316 

6290 

316 

6210 

310 

6220 NEXT 

6230 LOCATE x,y:PEN 3:PRINT CHR*(23 

8!;:PEN 1 

6240 LOCATE 12,14:PEN 3:PRINT "C H 

C";:PEN 1 

6250 FOR i=15 TO 8 STEP-l:SOUND 4,4 

00, 23, i,,, 31: NEXT 

6266 LOCATE x,y:PRINT " "; 

6270 LOCATE 12,12:PRINT ■ "i 

6289 LOCATE 12,14:PRINT 

6299 sortie»! 

6398 RETURN 

6319 FOR i=l TO I5»:NEX' 

4320 RETURN 

6330 ' 

6340 REM * GESTION AUTO AMSTRAD * 

6350 REM #*#*#****************# 

6360 IF turtra THEN tlirbo»»: RETURN E 

LSE drap=l 

6370 IF x3M3 AND x3<=17 THEN IF p >6T< 



>EZ< 
>VA< 
>P6< 
>XH< 

>TJ< 



>TM< 

>PN< 
>UP< 

>8Q< 



■FJ 



>SL' 



JN-. 



>JP< 
>MQ< 



>DR< 



:AUT0J0UEUR,x,y,-l,9:G0SUB 6 :Ek 



!AUTOJOUEUR,x,y,0,l :SOSUB 6 
IAUTOJDUEUR,x,y,l,9 :SOSUB 6 



XJ< 



ivi 



;>rl-: 
;ph; 



■LU 



SF< 



>CT< 
>HU< 

>8K< 

>VL< 
>TH< 
>PN< 
>FP< 
>BQ< 
>MR\ 



istsaOpistej THEN GOSUB 64B6:60T0 

6438 

6386 IF y3>=ll AND y3<=15 THEN IF p 

isteaOpistej THEN GOSUB 6566:60T0 

6438 

6390 objet2=objet: !C0PYCHR,x3+OK,y3 

6460 SDSUB 68%: IF sortie THEN 645» 

' GESTION DES COLLISIONS 
6418 IF abjet=32 OR ot>jet=144 THEN 
SOSUB 6746 
6428 IF objet=132 OR objet=136 THEN 

BOSUB 6S10:objet=32 
643» IF Iast=i THEN last=6;L0CATE s 
3,y3:PRINT " "i: iC0PVCHR,K3+oz,y3+p 
y,êobjet 

6446 x3=x3+ox:y3=y3+py 
6456 RETURN 
6466 REM 

6476 REN ** DIRECTION DROITE ** 
6486 IF oxOl THEN 6526 
6498 IF :<3<17 THEN t=2: GOSUB 6646 E 
LSE last=l 
6568 RETURN 

6516 REM ** DIRECTION GAUCHE ** 
6528 IF oxO-1 THEN 6566 
6536 IF x3>13 THEN t=-2:GQSUB 6646 
ELSE Ust=l 
6546 RETURN 

6556 REH ♦* DIRECTION EN BftS ** 
6566 IF pyOl THEN 6666 
6578 IF y3<!5 THE» t=2:60SUB 6688 E 
LSE last=l 
6586 RETURN 

6596 REH ** DIRECTION EN HAUT ** 
6686 IF pyO-1 THEN RETURN 
6616 IF y3>ll THEN t=-2: GOSUB 6688 
ELSE iast=l 
6628 RETURN 

6636 REM «MOUVEMENT VERTICAL AMSTRA 
D* 

6646 IF pistea<pistej THEN py=py-t: 
objet2=32:GOSUB 6740:y3=y3-t:py=0:p 
istea=pistea+hRETURN 
6656 IF pi5tea>pi5tej THEN py=py+t; 
ob jet2=32: GOSUB 6746: y3=y3+t : py=6: p 
Ï5t'ea=pistea-1:RETURN 
6666 STOP 

6676 REM MOUVEMENT LATERAL AMSTRAD 
6686 IF pi5tea<pistei THEN ox=ox-H: 
Qbjet2=32:60SUB 6746:x3=x3+t:ox=6:p 
istea=pistea+l:RETURN 
6696 IF pistea>pistej THEN Dx=on-ti 
objet2=32:60SUB 6748:x3=x3-t;ox=6:p 
istea=pistea-l:RETURN 
6768 STOP 
6716 ' 

6726 REM «AFFICHAGE AUTO AMSTRAD* 
6738 REM ********************** 



>NU< 



6746 LOCATE x3,y3:PRINT CHR*iob.jet2 >RU< 

); 

6756 !AUT0AMSTRAD,s3+ox,y3+py,o»,py >BV< 

: RETURN 

6766 STOP >JW< 

6776 ' >VX< 

6788 REM «CHANGEMENT DE DIRECTION* >VV< 

6796 REM *********************** >FZ< 

6868 REM «POUR L'AMSTRAD >R8< 

6818 IF obiet=132 THEN 6B58 >YR< 

6828 IF py=-l THEN py=6:o:<=l:60SUB >XT< 

6746:RETURN 

6838 IF py=l THEN py=6:ox=-l:60SU8 >YU< 



>AP< 


6746: RETURN 




/ 


6848 REM 


>BV< 


9 


6858 IF ox=-l THEN os=8:py=-l:G0SUB 


>XW< 


>K8< 


6746: RETURN 




>XR< 


6866 IF ox=l THEN ax=6:py=[:G0SUS 


>AX<! 


>ZT< 


6746:RETURN 




>JU< 


6B76 STOP 


>L¥< 


>DV< 


6886 


>AZ< 


>P»< 


6896 REM * AFFICHAGE DU CIRCUIT » 


/W-. 




6966 REM ********************** 


>CR< 


>TMt 


6916 FOR i=l TO 25 


>QT< 


>AN< 


6928 LOCATE l,i;PRINT tableMi); 


>TU< 


>BP< 


6936 NEXT 


>AV< 


>FQ< 


6948 !6PEN,2:DRAK 6,399:DRA»fi 463,6 
:DRAUR 6,-399:DRA»R -463,8 


m< 


>XR<, 


6958 RETURN 


>CX< 


>FT< 


6966 REM 


>EY< 


>DU< 


6978 DATA cdddddddddddddddddddddddd 


>HZ< 


>RV< 


ddde 






6988 DATA fp p p p p p r r r r 


>HA: 


>BW< 


r p-f 




>KX< 


6996 DATA f cddddddddd dddddddd 


>m. 


>XN< 


de f 




>HP< 


7688 DATA fpfr f r f r p p P P 

rfrf 


>XH< 


m< 


7816 DATA * f cddddddd ddddddde 


>LJ< 


>DR< 


* f 






7626 DATA frfrfr r r r rrrrf 


>BK< 


>TT< 


rfrt 






7636 DATA f f t cddddd ddddde t 

f i 
7646 DATA fpfpfpfp r r r r r+r-f 


>VL< 


>UU< 


>tw. 




rfrf 






7656 DATA T f f f cddd ddde f i 


>DN< 


>HV< 


f f 




>Z»< 


7866 DATA frfpfpfpfr p r rfrfpf 


>KP< 


>JX< 


r-frf 






7676 DATA f cddddddde 


>Y£|< 


>UY< 


f 

7688 DATA i f f 

f 
7698 DATA f f M875 f 


>LR< 




>ZT< 


>CP< 


f 




>RQ< 


7168 DATA f F f 


;>DJ; 


:>ar< 


i 




>DT< 


7118 DATA f hdddddddq 


>AK< 



7128 DATA fpfpfpfpfr r f rfrfrf >GL< 

rfrf 

7138 DATA f f f f hddd dddg f t >KM< 

f t 

7146 DATA frfrfrfr r r r r pfpf >6N< 
rfrf 
7156 DATA f f f hddddd dddddg f >FP< 

f f 
7166 DATA -fr-frfr r r r r r r pf >SQ< 
r-frf 
7176 DATA f f hddddddd dddddddq >BR<, 

f f 
713» DATA frfr r r r r r r r r >ST< 
. rfrf 

7196 DATA f hddddddddd dddddddd >XU< 
dg f 

7268 DATA fr r r r r r r r r r >XK< 
r rf 

7216 DATA hdddddddddddddddddddddddd >CL< 
dddg 

7226 ' >NM< 

7236 REM * AFFICHAGE JOUEUR- 1 * >EN< 
7246 REM ******************** >JP< 
7256 WINDOS SWAP 1,6 >HO< 

7266 LOCATE 1,2:PRINT "JOUEUR: 1"; >YR< 
7276 LOCATE 1,4:PRINT "66666 PTS"i >ZT< 
7288 LOCATE 1,6:PRINT " ": >¥U< 
7296 FOR xc=3 TO 7 STEP 2 >EV< 
7368 iAUTOJOUEUR.xc, 6,6,-1 >HL< 
7316 NEXT >TM( 

7328 HINDOU BNAP 1,8 >FN< 

7336 RETURN >VP< 

7348 >RO< 

7356 REM * AFFICHAGE JOUEUR-2 * >JR< 
7368 REM ******************** >MT< 
7376 HINDOU SWAP 1,6 >LU< 

7386 LOCATE 1,16:PRINT "JOUEUR: 2": >BV< 

7396 LOCATE 1,12:PRINT "86866 PTS"i >DW< 



' LOCATE 1,14:PRINT " 



": >TM< 



7416 FOR xc=3 TO 7 STEP 2 >¥N< 

7428 iAUTOJOUEUR.ïd, 14,8,-1 >MP-C 

7436 NEXT >W< 

7448 WNDOW SKAP 1,6 >JR< 

7456 RETURN >¥T< 

7466 ' >VU< 

7476 REM *AFFI. DU RECORD PRES.* >NV< 

7488 REM ********************* >LW< 

7496 LOCATE #1 , 1 , 18: PRINT M,"RECOR >XX< 
D:"iiLOCATE 11,1, M 

7588 PRINT #l,RIGHTti"6866"+MID*(ST >JN< 
R$(record),2i,4)j"6" 

7518 LOCATE »i,7,26:PRINT #l,"PTS"i >VP< 

7526 RETURN >HQ< 

7536 F£M * AFFICHAGE DU RECORD * >TR< 
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7540 REM ********************* >HT< 

7550 i=FRE("")! SOUND 135,8,1,6 >HU< 

7568 FOR (1=1 TQ 5 >UV< 

757* LOCATE tl, l,18:PftINT #1,"REC >UW< 

ORD: ■ 

75B0 80SUB 8776:L0CATE tl,l,16lPE >FX< 

N #1,3 

7590 PRINT tl, "JOUEUR: "+STR*(l-<« >B¥< 

ei>aptsl) ) ; 

760» PEN #l,l:GOSUB 8770 >AP< 

7616 NEXT n >FQ< 

7620 LOCATE »1,1,29|PRINT tl.RIGHTt >HR< 

<"»600"+MID*(STR»(!iiei>,2),4) 

7630 LOCATE #1,1,18iPEN #1,1:PRINT >GT< 

#1, "RECORD: "; 

7640 r°canj=R=i >TU< 

7650 RELEASE 7 >W< 

7660 FOR i=l TO 12 >PtK 

7670 SOUND 2, (13-0*44,12,13 >FX< 

7680 FOR j=400 TO STEP -30:SOUN >»Y( 

D 4,j,0.7,13:NEXT / 

7690 NEXT >EZ< 

7700- RETURN >NQ< 

7710 ' >TR< 

7720 REM * AFFICHAGE DU TITRE * >JT< 

7730 REM ***#****#*********## >NU< 

7740 HINDON StIAP 0,2 >NV< 

7750 LOCATE l,liPEN 3:PRINT "AUTO"; >AN< 

7760 LOCATE 5,1:PEN 0:PRINT "-"; >LX< 
7770 LOCATE 6,1:PEN 3:PRINT "CHOC"; >CY< 



7780 PEN 


>GZ< 


7790 FOR 1=1 TO 3 


>RA< 


7800 FOR i=l TO LEN(no$i!!i 


>LR< 


7810 LOCATE J,l+1:PRINT CHRSlAS 


)HT< 


C(MIDt(no$(i!,j,l))-l)| 




7820 NEXT 


;ZUi 


7830 NEXT 


>AV< 


7840 NINDON SWAP 2,0 


>PH\ 


7850 RETURN 


>cx< 


7860 


>ZY< 


7870 REM * AFFICHASE DE TURBO * 


>cz< 


7880 REM ******************** 


>VA< 


7890 LOCATE #3,1,1:PEN #3,»:PRINT t 


>CB< 


3, "TURBO" 




7900 FOR ty=7 TO 24: LOCATE «3,l,tyi 


>HT< 


PRINT #3,car*::NEXT 




7910 FOR 1=1 TO LEN<car*):LOCATE #3 >'BU< 


,1,25:PRINT #3,MID*(car*,i,l!;:NEXT 





7920 LOCATE #3,1,7 >JV< 

7930 RETURN >HK 

7940 ' >YX< 

795» REM « GESTION DU TURBO * >BY< 

7960 REM ****************** >C2< 

7970 IF drap AND (JOY(0)>15 OR ME >LA< 
Y(47)=0) THEN SOUND 130,0, 1,0: SOUND 
2,2000,48, 13,0, 1, 15:yturbo=yturtai+ 



1: LOCATE #3,l,yturbo:PRINT #3," ";: 

turbo=l:drap=0 

7980 RETURN >6B< 

7990 ' >DC< 

8006 REM * AFFICHAGE DE BONUS * >BJ< 

8010 REM ******************** >EK< 

8020 LOCATE #4,1,1:PEN #4,0:PRINT * >KL< 

4, "BONUS" 

0030 FOR ty=7 TO 24: LOCATE #4,l,ty: >EM< 

PRINT #4,car$;:N£XT 

8040 FOR i=l TO LEMcar*): LOCATE «4 >YN< 

,1,25:PRINT #4,MID«(car$,i,l);':NEXT 

8050 LOCATE #4, 1,7 >EP< 

8660 RETURN >MK 

8070 ' >TR< 

8080 REM * GESTION DU BONUS * >BT< 
8090 REM ****************** >XU< 
8100 count«count+liIF count<31 THEN >KK< 
RETURN 

8110 count=0:bonus=bonus-10:ybonus= >XL< 
ybonus+1 
8120 LOCATE #4,l,ybomis:PRINT #4," >PM< 

8130 LOCATE 14,13:PRINT RISHT$<"600 >MN< 

"+MID«(STR*(bonus),2),3)î 

814» IF bonus=0 THEN dbonus=0 >UP< 

8150 RETURN >WK 

8160 ' >TR< 

8170 REM ** PRISE EN COMPTE »» >HT< 

8180 REM DU BONUS >RU< 

8190 REM ********* >MV< 

820» i=FRE(""):SOUND 135,0,1, 8: IF b >NL< 

onu5=0 THEN RETURN 

8210 FOR i=borai5 TO STEP -10 >VM< 

8220 LOCATE 14,13:PRINT RIGHT*i"0 >RN< 

06"+MID*(STR*(i),2),3>; 

8230 IF joueur=i THEN LOCATE #1,1 >TP< 

, 4:PRINT 11, RIGHT* i "0000"+MID* (STR* 

(apt5l+(bDnus-i)/10),2),4): ELSE LO 

CATE #1,1,12:PRINT #1,RIGHT*("0068" 

+MID$(STR*lapts2+(bonus-i>/10i,2),4 

); 

8240 FOR j=500 TO 1 STEP -20:SOUN >MQ< 

D 4,j,0.5,13:N£XT 

8250 NEXT >XR< 

8260 IF joueur=l THEN aptsl=aptsl+b )ET< 

onas/10 ELSE apts2=apts2+bonu5/i» 

8270 bonus=0:SOSUB 8030:SOUND 131, « >AU< 

,1,0 

8280 RETURN >AV< 

8290 ■ >xw<; 

8300 REM ***** GAME OVER ***** )AM< 

8310 REM *********** >XN< 

8320 FOR i=l TO 12 >HP< 

8330 SOUND 2,i*44, 12,13 >D9< 
8340 FOR j=4»0 TO STEP -30:SOUN >NR< 
D 4,j,0.6,13:NEXT 

8350 NEXT >YT< 



8368 
837» 
838» 
839» 
B400 
8410 
8429 
35,», 



8458 
'8468 



848» 



850» 
8518 



RETURN 

REM **** MUSigUE No 2 **** 

REM ************** 

b=«:c=0:ad=1.4 

RESTORE 8440 

FOR i=l TO 3U60SUB 3180: NEXT 

FOR i=l TO 1800:NEXT i:SOUND 1 

1,0 

RETURN 

DATA 5,40,2,10,1,10,5,10,3 

DATA 10,1,28,13,20,10,10,13 

DATA 30,8,40,5,20,1,20,3,40 

DATA 3,40,5,40,3,10,1,10,5 

DATA 10,3,10,1,20,13,20,10 

DATA 10, 13,30,8,20,5, 10,1 

DATA 10,3,28,5,10,3,10,1,40 

DATA 1,40 



8530 REM * CLIGNOTEMENT CURSEUR * 

8540 REM ********************** 

8550 ! CURSEUR: RETURN 

8568 ' 

8570 REM *ATTENTE D'UNE TOUCHE* 

8580 REM ******************** 

8590 i$=STRIN6$(40, ", ")+"APPUYER.SU 

R.UNE. TOUCHE... S. V.P."+STRIN6$(40," 

.") 

B690 60SUB 8728:i=l: j=6:L=6:k$=ME 

Y* 

8618 WHILE k$="" 

8620 LOCATE 1,25:PEN llPRINT MIB* 

(mi, «,401: 

8630 m=u+l:IF «>LEN(«i»i-40 THEN « 

=l:j=NOT j:PEN 2+ABSÏjî 

8640 L=NOT L:LOCATE 12,1:PEN ABSi 

Li:PRINT ."A U T - C H C": 

8650 FOR k=l TO 36:NEXT:k*=INKEY* 

866» «END 

8670 LOCATE 12,1: PEN 1: PRINT "A U T 

- C H C"; 
8680 RETURN 
8690 ' 

8706 REM ** VIDAGE DU BUFFER CLAVIE 
R ** 

8710 REM ************************ 
** 

8720 FOR 1=1 TO 26:z»=INKEY*:NEXT 
873» RETURN 
8746 ' 

875» REM *** TEMPORISATION *** 
8760 REM *************** 
8770 FOR 1=1 TO 900: NEXT 
8780 RETURN 
879» ' 

8860 REM **** CAS DU BREAK **** 
8810 REM ************** 
8828 MODE 2:PEN 1:PAPER 6:CLS:PRINT 

SO*;:STOP 



>ZU< 
>TV< 

>RH< 
;JX< 
:>UN< 
>WP« 

>hq<: 

>XR< 
>UT< 
>UU< 
>HV< 
>BH< 

>ux< . 

>DY< 

>QP< 
>0Q< 
>TR\ 
>AT< 
>EU< 
>ZV< 
>XK< 
>NX< 
>TY< 
>RZ<; 



>T0<. 

>hr< 

>PT< 

.'NU-, 
>RV< 

>HWi 

>JX< 

>NY< 

>EZ< 

/BA< 
>KR< 

>LT< 

>UU< 
>AV< 

>m 
m< 

>PY< 
>LZ<' 
>FA< 
>CB< 
>CT( 
>PU< 
>NV< 
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FACE ! 


:' 


S 


■ 1 


PLAY IN THE SUNSHINE 


) 


HOUSEOUAKE 


| 


BÛROTHY PARKER « A 


k à0^ 


STflRFÎSH A® CÛFEE 1 mW 


\MW 


3L0i LOVE A ■ 4L 


H _JP 


^^twi^ 


«^v% 


FACE 2 ^^ » 




U 60T THE LQPK 


i 


IF I BAS YSIUR SIRlFRIEnD 


■1 


STRAN6E RELATIONSKIP 


s$[- '¥-■''. ' :.■•'.'■' t 


NEVER TAKE THE PLACE OF VOUS MflN 




THE CROSS 


'..' i 


BEAUÏIFUL NIEHT 


■'-'. i 


IJHTIl THE END OF TIME 


j 


PRINCE 


; 


SIEN OF THE TIMES 


! 


VE8Y SOOB 


! 



Bernard VABRE 




JAQUETTE permettra à tous les amateurs d'enregistrements audio de 

réaliser des jaquettes pour leurs cassettes. Finies avec cet utilitaire, 

les présentations bâclées. Ce programme a été conçu pour le CPC 

6128. Il tourne sans problèmes sur le 664. Pour le 464 quelques 

aménagements seront nécessaires. (Supprimer module traitements 

d'erreurs - Revoir sauvegarde -chargement). 



Voici les différentes options de ce pro- 
gramme : 

- COULEUR : permet de modifier les 
couleurs de travail. 

- SAISIE : pour saisir le titre de la cas- 
sette, le ou les auteurs, le titre des 
chansons (20 lignes) et d'éventuelles 
remarques. 

- MODIFICATION : lorsque la ligne 
n'est pas à modifier, faire RETURN ; 

+ 1 appui sur ESPACE + RETURN : 
efface toute la ligne, bien que celle-ci 
reste affichée à l'écran. 
+ 1 appui prolongé sur ESPACE : effa- 
ce toute la ligne à l'écran. 
Revenir au début pour correction. 

- IMPRESSION : prévu pour fonction- 
ner avec la DMP 2000. En cas d'utilisa- 
tion avec une imprimante non compati- 
ble, modifiez les lignes 10060 et 
10295. 



CHARGEMENT-SAUVEGARDE : en 
cas d'erreur, le programme vous affi- 
chera le type d'erreur, et attendra l'appui 
sur une touche, avant de revenir au ME- 
NU. Refaites alors l'opération (6128 et 
664). 

VISION : visualise la jaquette avant 
sauvegarde ou impression, modifica- 
tion. 



ATTENTION : le poke de la ligne 
19 évite l'arrêt du programme et le 
"RESET" par CTRL+SHTFT+ESC. 
Ne supprimez le REM, que lorsque le 
programme a été sauvegardé et fonction- 
ne correctement. Sinon, tout votre 
travail sera perdu. Lors de la saisie, ne 
mettez pas de virgule. En cas de "planta- 
ge" du programme, faire GOTO 1000. 



5 ' JA0UETTE 


>PF 


18 ' VABRE Bernard 


>CB 


11 ' 


>zc 


15 ' 


>RS 


16 ' 


,>EH 


1? 'POKE MDEE.2M: 'ANNULE CTRL+ 


>KL 


SHIFT+ESC . 




39 MODE 1: BORDER ilIMC M: II* 1,26 


>VD 



32 FOR ï=l T0 399 STEP 1»):NEXT:F0R >CF< 
yl=« T0 639 STEP 56: DRAW x,l,3:DRA 
H i.yi,3:lNK 3,8:NEXT 
35 WÎNDDW #1,1,4», 1,1:11* 2,1: PAPER >TJ< 
#1,2:CLS #1:L0CATE tl,12,l:PRINTH 
,"J A Q U E T T E" 

W LOCATE 6,6:PRINT"Ce":LDCATE 18,6 >HE< 
:PRINT"programme , très simple , vo- 
us" 

45 LOCATE l,8:PRINT"peniettra":L0CA >AK< 
TE 12,8:PRINT"de":L0CATE lfa,8:PRINT 
"réaliser des JAQUETTES" 
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46 LOCATE l,10:PRINT"pour":LOCATE 6 >NL< 
,18iPRIHT"vos cassettes AODIO." 

47 LOCATE 5,12:PRINT"Toutes les":LO >PM< 
CATE 16,12:PRINT"explications neces 

sa ires" 

48 LOCATE l,14:PRINT"sont incluses" >LN< 
:L0CATE 15,14:PRINT"dans les di-ffer 
ents modu-" 

49 LOCATE 1, 16:PRINT" les. Les":L0CA >RP< 
TE U,16:PRINT"codes":L0CflTE 17,16: 
PRINT"d' imprimantes utilises 11 

50 LOCATE l,18:PRINT"sont ceux de 1 >JF< 
'AMSTRAD DMP 2000." 

i» LOCATE 6,20:PRINT"En cas":LOCATE >E6< 
13, Mi PRINT"de" i LOCATE 16, 20: PRINT 
"plantage , du prograMW," 
65 LOCATE l,22:PRINT"iaire <B0T0"iL >NM< 
XATE 13,22:PRINT"1000>" 
70 HINDOM I2,1,48,»,25;INK 2, liPAP >BH< 
ER #2,2:CLS#2 

85 LOCATE #2,5,25:PRINTt2, "APPUYER >TP< 
SUR UNE TOUCHE ";CHR*(241i"VAB 

RE,B";CHR*(24):CALL &BB06 
90 DIX D$(23!:DEFINT A-Z >ÏK< 

105 BORDER 7:M0DE 2:PAPER 0:PEN 1 >F6< 

1000 ' MENU >LB< 

1005 ' >HB< 

1910 CLSiHODE 2: ON ERROR 60T0 5200 >NC< 

« 

1015 60SU8 60160 >JH< 

1020 LOCATE 2B,4:PRINT"M E N U" >PD< 

1025 LOCATE 28,5:PRINT" " >HJ< 

1038 LOCATE 15,8;PRINT"1 > C >RE< 

OULEUR d'écran." 

1040 LOCATE 15,10:PRINT"2 > >BF(. 

SAISIE Jaquette. 

1050 LOCATE 15,12:PRINT"3 > >V6< 

MODIFICATION. 

1860 LOCATE 15,14:PRINT"4 > >FH< 

IMPRESSION. 

1070 LOCATE i5,16:PRINT"5 > >TJ< 

CHARBEMENT jaquettes. 

1080 LOCATE 15,1B:PRINT"6 > >6K< 

SAUVEGARDE jaquettes. 

1090 LOCATE 15,20:PR!NT"7 > >EL< 

VISION jaquette chargée. 

1095 LOCATE 15,22iPRINT"8 > >AR< 

FIN." 



1180 b*=INKEY» 


iIF b»="" THEN 1100 


>EC< 


1105 IF b*='T 


THEN 2000 




>RH< 


1106 IF b*="2' 


THEN 4000 




>HJ< 


1107 IF b»="3" 


THEN 15000 




>CK< 


1108 IF b*="4' 


THEN 10000 




>ZL< 


1109 IF b*="5* 


THEN 6000 




>EH< 


1110 IF b$="6' 


THEN 5000 




>WDï 


1111 IF b*="7' 


THEN 7000 




■>AE< 


1112 IF b*="B' 


THEN 8000 




>DF' 


1115 IF b$<>"i 


' OR b*0"2' 


OR b$<>' 


>ftj< 


3" OR b*<>"4» 


OR b$0"5" OR b*<>"6' 





OR b*<>"7" OR b*<>"8" THEN SOUND 1 
29,49:S0T0 1100 

2000 '_ COULEUR DE TRAVAIL 

2010 

2020 MODE 2:CLS:G0SU8 60160iLOCATE 

17, 10iINPUT"quelle couleur pour le 

papier! ",c 

2030 LOCATE 17,12iINPUT"quelle coul 

eur pour la bordurei ",cl 

2040 LOCATE 17,14:INPUT"quelle coul 

eur pour l'encre: ",c2 

2050 IF c2=c THEN SOUND 129,39iL0CA 

TE 10,24;PRINT"une couleur d'encre 

différente du papier S.V.P";:S0T0 2 

040 

2060 BORDER cllINK 0,c:INK l,c2iCLS 

iSOTO 1000 

4000 ' 

SAISIE BANDE + AUTEUR+CHANSONS 
4005 ' 

4010 CLSiMODE liBOSUB 60160 
4015 A»=STRINS*i60,CHR$!46Si+CHR$(i 
511 

4020 LOCATE 2,2iPRINT CHR$(24ii"SAI 
SIEi AUTEUR TITRE CHANSONS 
«;CHR$!241 

4030 LOCATE 9,10:PRINT STRINS*(18," 
,"):CHR$il51) 

4040 LOCATE 2,10:LINE INPUT "AUTEUR 
:",D$(0> 

4050 IF LEN iD*(0i)>18 THEN PRINT C 
HR*(7iiB0T0 4040 

4070 LOCATE 8,13iPRINT 3TRIN6*i40," 
,"!;CHR*(151) 

4080 LOCATE 2,13:LINE INPUT "TITRE: 
",D*(1! 

4090 IF LEN (»(»»« THEN PRINT 
CHR$(7!:B0T0 4070 
4100 LOCATE 12,17iPRINl 
".•);CHR*(151'!iL0CATE : 
UT "REMARQUES! ",D* (3) 
4110 IF LEN (D$(3)l>40 THEN PRINT 
CHRÎ(7):B0T0 4100 

4120 CLSiMODE 2:L0CATE 3,2:PRINT CH 
R*(24);" SAISIE TITRES DE 
S CHANSONS PAR LIGNES Î20 lignes) 

"iCHR»(24) 

4121 BOSUB 60Î60 

4130 LOCATE 10,3:PRINT USING "&";a$ 

iLOCATE 7,3:LINE INPUT "li %D*(4! 

4140 IF LEN (D$(4))>60 THEN PRINT 

CHR*(7!iB0TO 4130 

4150 LOCATE 10,4:PRINT USINB "S:";a* 

:LOCATE 7,4iLINE INPUT "2: ",D$(5i 

4160 IF LEN (D*(5>>>60 THEN F'RINT 

CHR*!7):60T0 4150 

4170 LOCATE 10,5:PR1NT USING "4";A$ 

iLOCATE 7,5iLINE INPUT "3: ",D»(6) 

4180 IF LEN (D$(6))>60 THEN PRINT 



STRINSIi40, 
:.17:LINE INF 



>TC< 
>ED< 

)ZE< 



>ÛF< 
>LG< 
>HH< 

>UJ< 

>YE< 

>LK< 
>AF< 
>EL< 

>». 

>AH< 
>XJ< 
>YK< 
>BM< 
M< 
>BP< 
>RF< 

>PG< 
>TH< 

>KJ< 
>GJ< 

>ZK< 

>NL< 

>EM< 

>VN< 

>KP< 



CHR$(7)iG0T0 4170 

4190 LOCATE 10,6:FRINT USING "S<";A* >BQ< 

iLOCATE 7,6iLINE INPUT "4i ",D*(7! 

4200 IF LEN !D$(7)1>60 THEN PRINT >F6'i 

CHR$(7îiG0T0 4190 

4210 LOCATE 10,7:PRINT USING "i":a* >YH< 

iLOCATE 7.7:LINE INPUT '5: ",W(B) 

4220 IF LEN lD»(8i!>60 THEN PRINT >BJ< 

CHR*(7):G0TQ 4210 

4230 LOCATE 10.8iPRINT USINB "Fia* >EK< 

iLOCATE 7,S:LINE INPUT "6: ",Dt(9i 

4240 IF LEN (D*(9>)>60 THEN PRINT >6L< 

CHR$I7):G0T0 4230 

4250 LOCATE 10,9;PRINT USING "îi"ia* >DM< 

iLOCATE 7,9iLlNE INPUT "7: ",D*il0i 



4260 IF LEN (D*(10)i>60 THEN 

CHR$ (7)1 GOTO 4250 
4270 LOCATE 10,10iPRINT USINB 
JiLOCATE 7,10iLINE INPUT "Bl 
1) 
4280 IF LEN (D$illi!>60 THEN 

CHR$(7):60T0 4270 
4290 LOCATE 10,11:F'RINT USINB 
SiLÛCATE 7,lliLINE INPUT "9i ' 
2) 
4300 IF LEN (Dt(12))>60 THEN 

CHR*i7!:G0TD 4290 
4310 LOCATE 10,12iPRINT USINB 
JiLOCATE 7,12iLlNE INPUT "10:' 
3) 
4320 IF LEN (D$U3)J>60 THEN 

CHR$(7)iB0T0 4310 
4330 LOCATE 10,13iPRINT USINB 
«iLOCATE 7,13iLINE INPUT "11:" 
4) 
4340 IF LEN (D*!14ii>60 THEN 

CHRf (71 i SOTO 4330 
4350 LOCATE 10,14:PRINT USINB 
»:LOCATE 7,14:LINE INPUT "12: ' 
5) 
4360 IF LEN (D»U5))>60 THEN 

CHRS(7):6QT0 4350 
4370 LOCATE 10,15:PRINT USINB 
*:LOCATE 7,15:LINE INPUT "13:" 
6) 
4380 IF LEN iD*il6i)>60 THEN 

CHR$!7):G0T0 4370 
4390 LOCATE 10,16:PRINT USING 
«iLOCATE 7.16:LINE INPUT "14:" 
7) 
4400 IF LEN !D*(17ii>60 THEN 

CHR*(7):G0T0 4390 
4410 LOCATE i0,l7:PRiNT USINB 
*:LOCATE 7,17:LINE INPUT "15:" 



PRINT 



"î-":a 
,D$(1 



■EN< 
•VP< 



"&";a 
',D»(1 


>BR< 


PRINT 


>FH< 


"S.": a 
' , D* ( 1 


>QJ< 



PRINT 



"&";a : 



PRINT 



,D$!1 



Via 



"Via 
,D*(1 



,D$U 



,>6H<; 

>DN< 

>HP< 
>KQ< 

>TR< 
>RT< 

>NJ< 
/Pfa 



4420 IF LEN CD*U8!i>60 
CHRI17! :60TB 4410 



THEN PRINT >JL( 
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443» LOCATE 10,1B:PRM USINB 'Via >W< 

*:LOCATE 7,18:LINE INPUT "16:\D$(1 

9) 

4440 IF LEN (D$(19>)>60 THEN PRINT >PN< 

CHR*(7):G0T0 4439 

4450 LOCATE W,19:PR1NT USINB "8. "la >RP< 
$:LOCATE 7,19:LINE INPUT "17:",D*(2 
0) 
4468 IF LEN <D*(20))>60 THEN PRINT >KB< 

CHR$(7):60T0 4450 

4479 LOCATE 1S,20:PRINT USINE u l";a >DR< 
$:LOCATE 7,20:LINE INPUT "1B:",D*(2 

11 

4480 IF LEN <B*(21)i>60 THEN PRINT >QK 
CHR$(7!:B0T0 4470 

4490 LOCATE 10,21;PRMl USINB "S.";a >KU< 

$:LOCATE 7,21:LINE INPUT "19:",D$<2 

2) 

4500 IF LEN (D*(22)i>60 THEN PRINT >U« 

CHR*(7!:EQTD 4490 
4518 LOCATE 10,22:PRINT USINB "V;a >XL< 
*:LOCATE 7,22:LINE INPUT "20:",D*(2 
3! 
4520 IF LEN (D*!23))>60 THEN PRINT >BM< 

CHR*I7):GQT0 4510 

4530 LOCATE 4,23;LINE INPUT "REBUCT >JN< 
EUR DE BRUIT :BOLBY / NR ",D*(2) 
4540 LOCATE 25,25:PRINT CHR*!24!;" >CP< 
APPUYEZ SUR UNE TOUCHE ";CHR*(24! 
4550 CALL &BB06 >DQ< 

4560 60TO 1000 >AR< 

4570 ' >UT< 

5000 ' SAUVEBARDE JAQUETTE >NF< 

5002 ' >JH< 

5005 CLSiHODE 2: BOSUB 60160: LOCATE >HL< 
3,2:PRINT CHR$(24ii" 

SAUVEBARDE DU FICHIER . 
";CHR*',24 

5010 CAT:LINE INPUT "NOM DU FICHIER >WS< 
:",<ich» 

5015 OPENOUT FICH$:FOR 1=0 TO 23 >TM< 

5020 PRINT#9,D$(I):NEXT >LH< 

5030 CLOSEOUT >UJ< 

5090 BOTO 1000 >ZQ< 

6Ô00 ' CHARGEMENT JAQUETTE >EB< 

6002 ' >U< 

6005 CLS:MODE 2:G0SUB 60160:LOCATE >BM< 
3,2:PRINT CHR*(24);" 

CHARSEMENT D'UN FICHIER 

";CHR»!24 
) 

6010 CATiLINE INPUT "NOM DU FICHIER >XH< 
:",fich$' 

6015 OPENIN FICH*:FOR 1=0 TO 23 >NN< 

6020 INPUT #9,D$(I):NEXT >QJ< 

6030 CLOSEIN >PK< 

6090 BOTO 1090 >AR< 

7000 'VISION DE LA JAQUETTE >NH< 



7005 ' >PN< 

7010 CLS:BOSUB 60160 >UJ< 

7015 .LOCATE 70,1;PRINT CHR$(24);" V >FP< 

ISION ";CHR»(24> 

7020 FOR 1=4 TO 23: PRINT ;" "iD >MK< 

«UkNEXT 

7030 LOCATE 5,22:PRINT"AUTEUR >XL< 

: "| D$(0) 
7040 LOCATE 5,23:PRINT"TITRE >QM< 

: ";D$(1) 
7050 LOCATE 5, 24: PRINT "REDUCTEUR DE >RN< 
BRUIT: ";D*(2> 
7060 LOCATE 5,25:PRINT"REMAR8UE >JP< 

: ":D$(31 
7O70 LOCATE 56,25:PRINT CHR$(24!;" >HGK 
APPUYEZ SUR UNE TOUCHE ";CHR*t24) 
7080 CALL &BB06:6OTO 1000 >TR< 

8000' FIN >»J< 

8010 ' >LK< 

8020 MODE 1:CLS:60SUB 60160 >FL< 
8030 LOCATE 4,8:PRINT "FIN DE TRAVA >NM< 

IL ":LOCATE 15,13:PRINT ".... D 

'ACCORD ? 0/N ":A»=INKEY*:IF A*="« 

THEN 8030 

8035 IF A*="0" OR A$="o" THEN BOTO >VT< 

8040 

8037 IF a»="N" OR a*="n" THEN BOTO >HV< 

1000 

B040 FOR t=l TQ 3500:NEXT:!BASIC >HN< 

10009 ' MODULE IMPRESSION >JB< 

10010 ' >FC< 
10040 CLS:MODE 1:60SUB 60160: LOCATE :>VF< 

5,5:PRINT"PREPAREZ L'IMPRIMANTE" 
10050 LOCATE 10,10:PRINT"PUIS PRESS >EB< 
EZ:":LOCATE 15,12:PRINT" -> I-upres 
sion.":LOCATE 15,14:PRINT" -> M-enu 

10055 c*=MEY» >HM< 

10056 IF C*="I" OR c$="i" THEN BOTO >FN< 
10060 

10057 IF c»="M" OR c*="i" THEN GOTO >BF'< 

1000 

10058 IF c$<>"i" OR ctO'T'OR c*0" )JQ< 
»" OR c$<>"M" THEN 10055 

10060 CLS:LOCATE 10,10:PRINT"IMPRES >AH< 
SION EN C0URS":PRINT#B,CHR*(27)+CHR 
$i64):PRINT#8,CHR»l27i;"0":CHR*(15) 

10070 GOSUB 10410 >EJ< 

10080 PRINT#B,"!";TAB(5);D$(4!:TAB( >NK< 

69) " ! " 

10090 PRINT#8,"!";TAB(5)',D*(5)iTAB( >QL< 

69) "i" 

10100 PRINT#B,"i";TAB(5i;D*(6);TAB( >HC< 

69) " ! " 

18110 PRINT#8,"!";TAB!5);D*(7)|TAB< >KD< 

69!";" 

10120 PRINT#B,"!":TAB15);D*(B);TAB< >HE< 

69)"!" 



10130 PRINT«8,"I";TAB(5)(D»(9);TAB( >PF< 

69)"!" 

10140 PRINT*8,"!";TAB(5)sD*(10i:TAB >JB< 

169)"!" 

10150 PRINT*8,";"iTAB(5);D*lll);TAB >LH< 

(69)"!" 

10160 PfiINT#8,"!";TAB(5i;D$(12);TAB >NJ< 

(69) " ! " 

10170 PRINTt8,"i";TAB!5);D*(13);TAB >QK< 

(69)*!" 

10180 PRINTttB,"!"!TAB(5)iD*(14);TAB >TL< 

(69) " ! " 

10190 PRINT#8,"!";TAB(5î;DK15):TAB >VM< 

(69) " ! " 

10200 PRINT#8,"!";TAB(5i;D*(16i;TAB >MD< 

(69)"!" 

10210 PRINT#B,"!";TAB(5)iD*(17);TAB >PE< 

(69)"!" 

10220 PRINT#8,"!";TAB(5);D*(18i;TAB >RF< 

(69) " ! " 

10230 PRINT#8,"i"iTAB(5);D$(19):TAB >UB< 

(69) " ! " 

10240 PRINTi8,"!";TAB(5);D*(20i:TAB >LH< 

(69)"!" 

10250 PRINT#B,"!":TAB(5)iD»(21);ÎAB >NJ< 

(69)"!" 

10260 PRINT#B,"i";TAB(5):D«(22i;TAB >QK< 

(69)"!" 

10270 PRINT#B,"!";TABi5i;D$(23)iTAB >TL< 

169)"!" 

10280 BOSUB 10410 >HM< 

10295 PRINT», "!";TAB (5):CHR»(27!+ >JU< 

"E":CHR*(27!+"«"+CHR*(l);D$(0);CHR$ 

(27)+"r+CHR*(0!iCHR$(27!+"F";CHR$i 

15) 

10300 PRINT#8,"i";TAB(69!"!" >TE< 

10310 PRINT#8,"!";TAB (5) ;D*(UiTAB >FF< 

(69) " ! " 

10320 BOSUB 10410 >CB< 

10330 PRINT#8, " ! ";TAB(69) " i " >«H< 

10340 PRINT#B,"i";TAB(5);D$(2î;TAB( >KJ< 

49)"!" 

10350 PRINT#8,"!":TAB(69)"!" >YK< 

10360 PRINT#B,"!";TAB (5) ;Dt (3) ;TAB >NL< 

(69)"!" 

16370 SOSUB 10410 >HM< 

10400 GOTO 1000 >RF< 

10410 PRINTIS,"!"; STRINS$(67,"-"i; >«G< 

TABI69)"!" 

10420 RETURN >QH< 

15000 ' MODIFICATION >TB< 

15005 ' >Q«< 

15010 CLS:MODE 1: BOSUB 60160: LOCATE >UH< 
2,2:PRINT CHRt(24);" MODI 
FICATION ";CHRt(24! 

15020 LOCATE 3,7:PRINT"L0RSQUE LE P >BJ< 

OSTE N'EST PAS" 

15030 LOCATE 14,9:PRINT"A MODIFIER >VK< 
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>HHi 



■KJ. 



FAIRE <RETURN>." 

15846 LOCATE 2,15:PRINT"AUTEUR: " ( D 
${6) 

15954* LOCflTE 16,15:G0SUB 16MB 
15669 IF B*>=" "THEN D*(©)=B* 
15665 IF LEN (d$<8)!>28 THEN PRINT 
CHR*(7);G0T0 15048 . 
15978 LOCflTE 2, 18:PRINT"TITRE: ";D*< 
li 

15888 LOCflTE 8, iS:SDSUB 16888 
15898 IF B*>=" « THEN D*(1!=B* 
15895 IF LEN (d$(l!i>48 THEN PRINT 
CHR*(7!:80T0 15878 
15108 LOCflTE 2,21:PRINT"REMAR0UES:" 
;D*(3) 

15118 LOCflTE I2,21:G0SUB 16888 
15126 IF 6t>=" -THEN D*i3i=B* 
15125 IF LEN (d*(3)l>48 THEN PRINT 
CHR*Î7,':B0TD 15186 

15136 CLS:MODE 2:S0SUB 66166:L0CflTE >ZL 
7, 2: PRINT CHR$(24)j" 

MODIFICATION 
";CHR»(241);CHR»{24> 
15135 LOCflTE 7,3iPRINT"l: " ; D* (4) 
15146 LOCflTE 16,3:S0SUB 16866 
15156 IF B*>=" " THEN D*(4!=B$ 
15155 IF LEN (d*(4)i>69 THE» PRINT 
CHR$<7):GOT0 15135 
15168 LOCflTE 7,4:PRINT"2: ":B$(5l 
15176 LOCflTE 19,4:S0SUB 16866 
15186 IF B»>=" " THEN D*(5)=B* 
15185 IF LEN (d$(5))>66 THEN PRINT 
CHR*(7S:B0T0 15169 
15198 LOCflTE 7,5:PR!NT"3: ";D$i6> 
15288 LOCflTE 18,5:B0SUB 16066 
15216 IF B$>=" " THEN D$S6)=B$ 
15215 IF LEN ld$(6))>66 THEN PRINT 
CHR$f7!:60T0 15196 
15226 LOCflTE 7,6;PRINT"4: ";»(7) 
15236 LOCflTE I8,6:60SUB 16868 
15240 IF B$>=" " THEN D»!7i=B* 
15245 IF LEN (d$<7!!>69 THEN PRINT 
CHR*(7):60T0 15226 
15256 LOCflTE 7,7:PRINT"5: ":B$iSS 
15266 LOCflTE 19,7:60SUB 16806 
15278 IF Bt>=" " THEN M(8i=Bt 
15275 IF LEN (d$<8>)>6& THEN PRINT 
CHR*i7i:60T0 15258 
15286 LOCflTE 7,8:PRINT"6: ";B*(9i 
15296 LOCflTE 19,8;G0SUB 16080 
15368 IF B$>=" " THEN DI(9)=BI 
15305 IF LEN id$(9i!>69 THEN PRINT 
CHR*(7):GQT0 15288 
15316 LOCflTE 7,9:PRINT"7: ";D*«1ÔJ 
15326 LOCflTE 16,9:B0SUB 16008 
15336 IF BJ>=" " THEN D$(19i=B$ 
15335 IF LEN (d$(10ii>60 THEN PRINT 
CHR*(?>:GOTO 15316 
15349 LOCflTE 7,19 :PRINT"8: " ; D* ( i 1 >FP< 



EQ: 



:>AR< 
>JM< 
>f»l< 

>vu< 

>BP< 
>NQ< 
>RR< 

>XX< 

>HT< 
>HJ< 
>LK< 

>m 

>EL< 

/«fi; 

m<, 

>TU< 

>LP< 
>RQ< 
>VR< 
>AX< 

>TT: 
>HU< 

>PK< 
>MK 

>6L< 
>0M< 
>LN< 
>NU< 



1 

15359 LOCflTE 18,16:G0SUB 16909 >MGK 
15368 IF B$>=" " THEN D*(lti=B$ >QR< 
15365 IF LEN (d$(ll))>68 THEN PRINT >tK< 
CHR*(7i:GÛT0 15346 

15376 LOCflTE 7,11 :PRINT"9; ";D*U2 >HT< 
I 

15388 LOCflTE 16,11:G0SUB 16080 >RU< 
15390 IF B»>=" " THEN D$(12)=B$ >W< 
15395 IF LEN (d*U2!)>60 THEN PRINT >Dft< 
CHR*(7):fi0T0 15376 

15488 LOCflTE 7.12 :PRINT"!8:";D*(13 >BL< 
! 

15419 LOCflTE 16,12;G0SUB 16988 >LM< 
15429 IF B$>=" " THEN D*(13)=B* >PN< 
15425 IF LEN ld»(13i)>68 THEN PRINT >RU< 
CHR$(7):S0T0 15480 

15436 LOCflTE 7,13 :PRINT"11;";D$(14 >HP< 
I 

15446 LOCflTE 10, 13:G0SUB 16069 >Cfi< 
15456 IF B$>=" ■ THEN D*(14I=B» >UR< 
15455 IF LEN (d$(14j)>60 THEN PRINT >ÎX< 
CHRt!7):60T0 15438 

15468 LOCflTE 7,14 :PRINT"i2:";D$(15 >PT< 
) 

15476 LOCflTE 18,14:60SUB 16608 >VU< 
15489 IF B*>=" ' THEN D$(15)=B$ >W. 
15485 IF LEN !d$il5))>69 THEN PRINT >Gfl< 
CHR*!7i:60T0 15469 

15499 LOCflTE 7.15 :PRINT"13:";D$(l6 >HK< 
! 

15508 LOCflTE 19, 15;60SUB 16089 >PH< 
15516 IF B*>=" " THEN D*(16)=B* >TN< 
15515 IF LEN (d$(16))>60 THEN PRINT >EU< 
CHR»(?):GOTO 15490 
15526 LOCflTE 7,16 :PRINT"14:";D$(17 >TP< 



15538 LOCflTE 18,16: BDSUB 16868 >U0< 
15540 IF B$>=" " THEN D*(17)=B$ )XR< 
15545 IF LEN (d*(17))>60 THEN PRINT >CX< 

CHR*(7i:60T0 15520 

15558 LOCflTE 7,17 :PRINT"15:";D$<1B >ZT< 
) 

15560 LOCflTE 18, 17:G0SUB 16000 ;YU< 
15579 IF B*>=" " THEN D$(18)=B» >BV< 
15575 IF LEN (d»(18ii>60 THEN PRINT )KA< 

CHR*(7):S0T0 15550 

15588 LOCflTE 7,18 :PRINT"16:":B*(19 >FW< 
) 

15599 LOCflTE 10,1B:6OSUB 16989 >CX< 

15600 IF B*>=" " THEN B*(19)=B$ >t*N< 
15685 IF LEN !d*U9!>>60 THEN PRINT >HU< 

CHR*(7i:B0T0 15580 

15610 LOCflTE 7,19 :PRINT"17:":D*(26 >TP< 
) 

15629 LOCflTE 10,19:6OSUB 16060 

15630 IF B*>=" « THEN D$(20)=B* 
15635 IF LEN (d$(26i)>68 THEN PRINT 

CHR$!7):G0T0 15616 



15646 LOCflTE 7,28 :FRINT"1B:";!»(21 >PT< 
) 

15658 LOCflTE 10,28:GQSUB 16696 >RU< 
15666 IF 6*>=" " THEN D»!21i=B* >W< 
15665 IF LEN (dt(21!)>60 THEN PRINT >W< 
CHR$(?):6DTD 15640 

15676 LOCflTE 7,21. :PRINT"19:";D*(22 >*K 
1 

15688 LOCflTE 18,21:G0SUB 16860 >MX<: 
15690 IF B$>=" " THEN D*(22)=6* >ZY< 
15695 IF LEN td*(22)l>60 THEN PRINT >LB< 
CHR*(7):60T0 15670 
15700 LOCATE 7,22 :PRINT"20:";D*(23 : 



15718 LOCATE 18,22:60SUB 16899 
15726 IF B«>=" " THEN D*(23)=B$ 
15725 IF LEN id$(23!)>68 THEN PRINT 
CHR$(7):G0T0 15788 
15736 LOCflTE 4,23:PRINT"REDUCTEUR D 
E BRUIT; DOLBY / Nfi »;BS<2J 
15746 LOCflTE 23,23i60SUB 16086 
15756 IF B$>=" " THEN D*(2!=B* 
15760 LOCflTE 25,25:PRINT CHR$!24i;" 
APPUYEZ SUR UNE TOUCHE ";CRR$(24) 
15770 CALL !<BB66 
15786 60T0 1899 
16699 UNE INPUT"", B*:RETURN 
52906 '_TRAITEMENT D'ERREURS 
52965 ' 

52816 CLS: MODE 1:S0SUB 68168 
52926 IF DEfih-i44 THEN LOCATE 5,ii): 
PRTNT"NOM DU FICHIER INCORRECT" :L0C 
ATE 5,14:PRINT"MINI: 1 Caractère.": 
LOCflTE 5,16:PRINT"MAXI: 8 Caractère 



>HF'< 

>0Û( 
>UR< 
>ZX< 



>ZU< 
>RV< 
>LW< 

>MX-i 
>JY< 
>TH< 
>UH< 
>RN< 
>FJ< 
,>Llvï 



•■m'. 



52036 IF DERR=146 THEN LOCATE 5,16: 
PRINT'CE FICHIER NE SE TROUVE PAS": 
L0CATE-5,12:PRINT M SUR CETE DISQUETT 
E." 

52046 IF DER1M47 THEN LOCATE 5,10: 
PRINPCATALOBUE SATURE. PLUS DE 64 F 
ICHIERS. ":L0CflTE 5, 12:PRINT"CHflNBER 
DE DISQUETTE." 

52050 IF BERR=14B THEN LOCflTE 5, 18: 
PRINT"DISQUETTE PLEINE. ":LOCATE 5,1 
2:PRINT"CHflNGER DE DISQUETTE. " 
52866 LOCflTE 10. 25: PRINT CHR$!24i;" 
APPUYEZ SUR UNE T0UCHE";CHR$(24!:Cfl 
LL MB66:G0T0 1866 
52676 RESUME 1666 

60166 ' TRACE DES CADRES 

66165 ' 

69178 MOVE 5,5: DRAW 5,395,3 

68180 DRA» 635,395 

69190 DRAW 635,5 

66280 DRAN 5,5 

60210 MOVE 7,7:DRA« 7,393, 3:DRAW 63 >VK< 

3, 393, 3: DRAW 633, 7, 3: DRA» 7,7,3 

60220 RETURN >UL< 



PL< 



NH', 



XN< 



.■Ri. 
/0P< 
>YV< 
>C0< 
>AR< 
>JT< 
>LJ< 
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iRAPEAUX ET 
CAPITALES 



JackCHAIGNEAU 




Ce programme dessine les drapeaux de 60 nations. Il s'agit de donner le nom 

du pays, ainsi que la capitale correspondant au dessin. On fixe le nombre de 

drapeaux pour une manche (de 3 à 60) . Le programme ne prend en compte 

que les 4 premières lettres des noms, ce qui est généralement suffisant pour 

l'identification. Il comptabilise le nombre d'essais et de réponses exactes. 

Pour "donnez votre langue auchat" entrez la lettre "Z". Au début du jeu une 

option "révision" fera défiler tous les drapeaux en mémoire. Le programme est 

composé de deux fichiers : le premier est à sauvegarder sous le nom 

DRAPEAUX et le second sous le nom DRAPEAU 1. 



c/sr/A/6 A 




160 FOR n=l TO c:READ s,y:DRAW s, y >NH< 
176 NEXT:NEXT >XJ< 


'••.•> ,.;'»" 




188 PLOT 215,lB6:DRAti 226,194:DRAN >KK< 

212,264 

196 ORIGIN 315,288:TAG >NL< 






5' #**»#*# DRAPEAUX ##t#t»« 


>VF< 


280 FOR n=3 TO 25 >FC< 


U MODE kDEGilNK 0,1:INK 2.» 


>K8< 


218 READ a* >DD< 


28 BORDER 1: PAPER 0:PEN 2 


>HC< 


220 x=n*368/26 >JE< 


38 0RIG1N 328,266 


>XD< 


238 HOVE COS(x)*260,SIN(x)*148 >«F< 


46 FOR n=l TO 188 


>ZE< 


248 PRINT a$( >UG< 


58 x=RND*640-320:y=RND*400-208 


W- 


256 NEXTiTAGOFF >BH< 


68 IF (K*2+y"2K12280 60TD 86 


im< 


266 FOR n=l TO 3888:ICXT >VJ< 


78 PLOT x,y,2 


>BH< 


276 LOCATE 27,24;PRINT "Chargement. >JK< 


86 NEXT 


>KJ< 


.," 


» MOVE 189,0 


>VK< 


288 RUN "Idrapeaul >UL< 


108 FOR a=6 TO 346 STEP 5 


>TB< 


298 DATA 389,281,68,377,271,376,277 >LH< 


116 DRAW 169*CQS(a),169»SIN(a> 


>GC< 


,375,283,358,293,339,269,339,259,34 


128 NEXT 


>6D< 


5,264,351,256,358,276,361,263 


138 ORIGIN 8,6 


>JE< 


368 DATA 371,263,359,251,350,251,34 >ZD< 


140 FOR f=l TO 9 


>JF< 


5,258,342,249,330,243,329,248,334,2 


156 READ a,b,ciPL0T a,b 


>H6< 


37,334,233,331,236 



316 DATA 324,234,321,222,329,218,33 

B,229,346,233,350,221, 354,221, 352,2 

33,368,216,374,231 

326 DATA 383,231,388,221,373,219,37 

1,214,383,213,376,200,360,283,349,2 

16,348,215,326,212 

338 DATA 312,201,306,185,319,171,33 

8,164,343,144,336,136,339,107,350,1 

06,376,126,380,142 

340 DATA 488,162,387,167,376,194,39 

2,176,413, 177,39B,196,481, 198,487,1 

88,416,196,426,185 

356 DATA 336,246,4,333,262,338,262, 

328,244,336,246,319,244,4,326,254,3 

24,255,324,247,319,244,483,229,3,39 

7,224,483,212,483,229 

368 DATA 319,278,3,385,282,312,275, 

319,278,304,308,4,302,288,289,284,2 

79,278,268,292 

370 DATA 251,284,8,250,270,258,274, 

262,259,249,255,258,249,230,237,228 



>HE 



>XF< 



>EH< 



>¥J< 



>LK< 



;FL< 
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,227,218,236 

389 BATA 215,220,9,221,295,225,199. 
231,201,2613,185,259,179,276,142,262 
,146, 254, 146, 238, 139 

390 DATA 238,214,4,234,219,226,216, 
228,229,238,214 

489 DATA X.U,A,E,P,A,R,D,,,,E,T,,C, 
A,P,I,T,A,L,E,S 



C/Sf/A/6 Z 



59 "***»****♦ DRAPEAUX ET l lllllll >ZF< 

69 '«**♦**»*** CAPITALES ****»»*** >QS< 

79 INK 0,1:INK 1.2.-INK 2,26:INK 3, >TH< 

6:INK 4,0:1»; 5,24:1»; 6,19:INK 7,1 

5 

88 HODE 1:PAPER 8:PEN 2 >YJ< 

98 B=340: GOSUB 6369 >XK< 

106 LOCATE 9,7:PRINT"Bori.iour !" >AB< 

118 LOCATE 3,9:PRINT"Ce programe v >AC< 

a tester vos connaissancesconcernan 

t les drapeaux et les capitalesde q 

uelques nations," 

128 FOR n=l TO 2586:«EXT:PRINT CHR* m<-. 

U) 

138 LOCATE l,15:PRINT"A»ant de comi ;>AE< 

encer, peut-être vouiez-voustaire un 

b petite revision ?" ' ■ 

149 PR1NT >UF< 

159 FOR n=l TO 1508: NEXT: PRINT CHR* >TS< 

(7) 

168 PRINT >tH< 

179 PRINT" - Tapez pour o >PJ< 



318 PR1NT:PRINT >NE< 
328 PRINT" -Pour changer de page :" )8F( 

339 PRINT: PRINT" appuyez sur une >BS< 
touche quelconque. " 
348 FOR n=l TO 2888:NEXT:PRINT CHR* >PH< 
(7) 

350 LOCATE 36, 23: PRINT" " >JJ< 

368 LOCATE 2,23:INPUT "-Combien de >TK< 
drapeaux (de 3 a 68)";nbre 

378 IF nbre<3 OR nbre>68 THEN GOTO >YL< 
358 

388 nonl=8:non2=8:auii=8:aui2=9 >YM< 

399 SOTO 419 >XN< 

498 choiï=l:nbre= s 60 >DE< 

418 «ODE 8:PEN 2 "" >XF< 

428 ' >FG< 

439 '♦**** CHOIX DES DRAPEAUX m >YH< 

448 CLS:Pas=31+6*M(RND*4! >RJ< 

450 DR=INT(RND*68+l):Po=l:ND=l >QK< 

468 SOSUB 74B0 >PL< 

478 WINDOW #3,H31,W32,N33,W34 >LM< 

480 PEN #3,2:PAPER #3,8 >CN< 

490 PRINT *3,ND:PRINT CHR*(7) >2P< 

580 IF DR>69 THEN DR=DR-60 >QF< 

518 IF DR>39 GOTO 540 >NB< 
528 ON DR GOSUB 618,670,738,318,900 >ZH< 
, 988, 1848, 1 100, 1 160, 1288, 1348, 1406, 
1490,1550,1618,1710,1810,1948,2000, 
2078,2138,2190,2278,2358,2440,2518, 
2588,2650,2760,2870 

538 GOTO 568 >ZJ< 

548 DR=DR-30 >QK< 

550 ON DR GOSUB 2930,3808,3068,3120 >ZL< 

,3318,3468,3520,3660,3750,3840,3970 / 
, 4038, 41 10, 4180, 4288, 4370, 4480, 4560 
, 4660, 4788, 4850, 4966, 5828, 5160, 5298 
, 5569, 5720,5840, 5910, 6040: DR=DR+30 



UI 




560 Po=Po+l:NB=ND+l 


>CMi 


186 PRINT" - N pour n 


>QK< 


578 IF ND>nbre THEN GOTO 7808 


:>RN: 


on" 




586 IF Po>6 THEN GOSUB 6588 


>BP< 


196 a*4iPPER*(MEY*i 


>HL< 


598 DR=BR+Pas:G0T0 466 


>E8( 


206 IF a*O"0" AND a*0"N" THEN 190 


:>uc< 


608 ' 


>FG< 






610 ' ****»***FRANCE****»*»* 


>FH< 


210 IF a*="0" THEN GOTO 468 


>8D< 


620 g*="FRAN";capl*="Pari" 


>VJ< 


228 CLS:choi;;=6;8=340:S0SUB 6350 


>VE< 


630 GOSUB 7478 


>HK< 


230 LOCATE 2,7:PRINT"-Lorsquune qu 


>LF< 


648 C1=1:C2=2:C3=3:G0SUB 6278 


>TL< 


estion apparaît, entrez" 




650 BOSUB 6220:60808 7130:RETURN 


>RJI< 


246 PRINT 


>V6<. 


668 ' 


>l*l< 


258 PRINT" les 4 premières lettres 


>BH< 


670 ' *»**»**ETHI0PIE******* 


>DP< 


de la réponse. " 




680 g*="ETHr:capl*="Addi" 


>B0< 


268 FOR n=l TO 2090:NEXT:PRINT CHR* 


>QJ< 


690 GOSUB 7476 


m< 


(7i 




780 C1=3:C2=5:C3=6:S0SUB 6480 


>BH< 


279 LOCATE 2, 12:PRINT"-Si vous ne t 


>ZK< 


710 GOSUB 6220:60SUB ?136:RETURN 


>NJ< 


rouvez pas :" 




728 ' 


>JK< 


289 PRINT 


>ZL< 


738 " ********S0UBAN******»» 


>NL< 


290 PRINT" entrez Z pour avoir 


;DM< 


748 g*="SOUD":cap!*="Khar" 


>NM< 


la solution. " 




758 GOSUB 7478 


>QN< 


309 FOR n=l TO 2808:NEXT:PRINT CHR* 


>KD< 


768 C1=4:C2=2:C3=3:60SUB 6488 


>CP< 


(7) 




779 FOR Y=B TO B*88 STEP 2 


>Pfl< 



788 PLOT A+68,B+48,6:DRA» A, V: NEXT 

790 GOSUB 6226:GÛ5UB 7136:RETURN 

368 ' 

B18 ' **»«**t*S0MALI£******** 

826 5*="S0MA":capl*="rtoga" 

830 BOSUB 7476 

B40 d=l:c2=l:c3=l:c4=2:60SUB 6270 

856 GOSUB 67«9:RLaT A+64,B+46,2 

868 PLOT A+64,B»48;PL0T A+52,B+46 

876 PLOT A+44,B+46,1:PL0T A+68.B+56 

880 GOSUB 6228:G0SUB 7136:RETURN 

890 ' 

909 ' **4****»*GAMEIË*****+** 

9J0 g*="6AMB":capl*="Banj" 

920 SOSUB 7470 

930 C1=6:C2=2:C3=3:S0SUB 6480 



>WR\ 
>XT< 
>HK 
>GK< 

>YLi 
>P«< 
>EN< 
>HP: 
>FQ< 
>DR\ 

>XT< 
>TU< 

>TK< 

>ll; 
;ph( 

;Sfi; 



948 FOR Y=B+31 TO B+48 STEP 2 >YP< 

956 PLOT A,Y, 1:DRAU A+120,Y:NEXT >HB< 

968 GOSUB 6228:B0SUB 7136:RETURN >HR< 

978 ' >RT< 

988 ' **»*****BELEIQUE*«****** >PU< 

998 g*="BELG":capl*="BruK" >PV< 

1868 GOSUB 7476 >FB\ 

1010 C1=4:C2=5:C3=3:GQSUB 6278 >TC< 

1820 BOSUB 6220:G0SUB 7138:RETURN >HK 

1030 ' >FE< 

1840 ' **«*«***AUTRICHE***«««*« >LF< 

1056 g*="AUTR":capl*="Vien" >ZEC 

1868 BOSUB 7478 >NH< 

1076 cl=3:c2=2:c3=3:6DSUB 6480 >YJ< 

1080 GOSUB 6220:6OSUB 7136:RETURN >RK< 

1898 ' >hl< 

1108 ' ********* ITALIE*»»»»**** >DC< 

1118 g*="ITAL":capl*="Rone" >CD< 

1126 GOSUB 7478 >JE< 

1139 C1=6:C2=2:C3=3:GÛSUB 6276 >vT< 

1140 GOSUB 6226:G0SUB 7130.-RETURN >NG< 
1158 ' >JH< 
1169 ' *********SUISSE***t***** >ZJ< 
1179 g*="SUIS":capl*="Bern" >ZK< 
11B0 GOSUB 7478 >QL< 
1190 C1=3:C2=3:C3=3:G0SUB 6278 ;>Zh"< 
1286 FOR X=54 TO 66 STEP 4 >JD< 
1210 PLOT A+X,B+13,2:DRAW A+X.B+67 >PE< 
1226 NEXT >LF< 
1230 FOR Y=34 TO 46 STEP 2 >66< 
1246 PLOT A+31,Y+B,2:DRAH A+89.Y+B >ZH< 
1258 NEXT >PJ< 
1260 GOSUB 6228:G0SUB 7136:RETURN >RK< 
1270 ' >ht< 
1280 ' «*******NIGERIA******** >ZH< 
1290 g*="NIGE":capl*="Abuj" >LN< 
1366 GOSUB 7479 >JE< 
1316 C1=6:C2=2:C3=6:G0SUB 6276 >YF< 
1326 GOSUB 6229:G0SUB 7136.-RETURN >N6< 
1330 ' >JH< 
1348 ' «««««ALLEMAGNE******* >BJ< 
1350 g*="ALLE":capl*="Bonn" >PK< 



22 



1360 GÛSUB 7478 >Qt-< 

1376 C1=5:C2=3:C3=4:S0SUB 6489 >FM< 

13B0 BOSUB 6220:6O5UB 7130:RETURN >VN< 

1398 ' >8P< 

1400 ' «hhhEMRATS ARABES»*** >PF< 

1416 ' UNIS >ES< 

1420 g*="ENIR":capl*="Alrau" >XH< 

1430 6ÛSUB 7470 >NJ< 

1440 C1=4:C2=2:C3=6:B0SUB 6480 >DK< 

1450 FOR X=A TO A+40 STEP 2 >EL< 

1460 PLOT X,B,3;DRAN X,B+B0:NEXT >MH< 

1470 GOSUB 6220:6OSUB 7130:RETURN >W< 

1480 ' >«P< 

1490 ' *********GABON********* >MK 

1500 g*="GABO";capl*="Libr" >BG< 

1519 GOSUB 7470 >HH< 

1520 C1=1:C2=5:C3=6:G0SUB 6486 >CJ< 
1530 GOSUB 6220:GOSUB 7130:RETURN >RK< 
1540 ' >N-< 
1550 ' »********I1ALI*********** >TM< 
1560 gt="MALI":capl*="Ba«ia" >TN< 
1570 GOSUB 7470 >UP< 
1580 C1=6:C2=5:C3=3: GOSUB 6270 >HQ< 
1590 BOSUB 6220:GOSUB 7130;RETURN >VR< 
1600 ' >JH< 
1610 ' *»****«KQWE!T********** >PJ< 
1620 g*="KOWE":capl*="Kaite" >AK< 
1630 BOSUB 7470 >8L< 
1640 C1=3:C2=2:C3=6:G0SUB 6480 >EH< 
1650 FOR Y=B TO B+80 STEP 2 >PN< 
1660 PLOT A+60,B+40,4: DRAW A,Y:NEX >UP< 
T 

1670 FOR Y=B+27 TO B+54 STEP 2 >HK 

1680 PLOT A+44,Y,2:DRAW A+120,Y:NEX >XR< 
T 

1690 GOSUB 6220:BOSUB 7130:RETURN >ZT< 

1700 ' >KJ< 

1710 " *******DJIB0UTI******** >AK< 

1720 g*="DJIB":capl*="Djib" >NL< 

1730 BOSUB 7470 >RM< 

1740 C 1 =4 : C2= 1 : C3=6 : GOSUB 6480 >BN< 

1750 FOR Y=B TO B+80 STEP 2 >QP< 
1760 PLOT A+60,B+40,2:DRAH A,Y:NEXT >TQ< 

1770 q=A+26:r=B+40:c6=3 >XR< 

1780 GOSUB 6850 >YT< 

1790 GOSUB 6220:GOSUB 7130;RETURN >AU< 

1890 ' > LK< 

1810 ' **********LIBER1A******* >LL< 

1820 g$="LIBE":i:apl*-'Mcmr" >FH< 

1830 BOSUB 7476 >TN< 

1840 cl-2:c2=2;c3=2:60SUB 6480 >BP< 

1850 FOR p=B TO 72 STEP 16 >L8< 

1860 FOR y=p TO p+6 STEP 2 >UR< 

1870 PLOT A,B+y,3:DRAW A+129,B+y >RT< 

1880 NEXT:NEXT >JU< 

1890 FOR y=40 TO 80 >RV< 
1900 PLOT A,B+y,l:DRAW A+44,B+yiNEX >WL< 
T 



1910 g=A+24:r=B+60:c6=2:GOSUB 6850 

1920 BOSUB 6220: BOSUB 7130:RETURN 

1930 ' 

1940 ' *********P0L06NE******** 

1950 g*="POLO":capl»="Vare" 

1960 60SUB 7470 

1970 C1=3:C2=2:C3=0: GOSUB 6480 

1980 GOSUB 6220:GOSUB 7130:RETURN 

1990 ' 

2000 ' **********JAPON********* 

2010 g»="JAPO":capl$="Toky" 

2020 GOSUB 7470 

2030 cl*2:c2=2:c3»2iHBUB 6480 

2040 couleur=3:60SUB 6990 

2050 BOSUB 6220:GOSUB 7130:RETURN 

2060 ' 

2t)70 ' ********»HONBRIE******** 

2080 g«="HONB":capH="Bud8" 

2090 BOSUB 7470 

2100 cl=6:c2=2:c3=3:60SUB 6480 

2110 GOSUB 6220:GOSUB 7130:RETURN 

2120 ' 

2130 ' »*********TCHflD********* 

2140 g*="TCHA":capl*="Ndja" 

2150 GOSUB 7470 

2160 ct=l:c2=5:c3=3:B0SUB 6270 

2170 GOSUB 6220:6OSUB 7130;RETURN 

2180 ' 

2190 ' *********ESPA6NE******** 
2200 g$="ESPA":capl$-'Ha<ir" 

2210 BOSUB 7470 

2220 cl=3:c2=3:c3=3:GOSUB 6480 

2230 FOR y=20 TO 60 STEP 2 

2240 PLOTA,y+B,5:DRA« A+120,y+B:NE : 

XT 

2250 BOSUB 6220:6OSUB 7130:RETURN 

2260 ' 

2270 ' *****TCHECOSLOVAQUIE****» 

228Ô g$ = "TCHE ,l :câPlî="Pr5g" 

2290 BOSUB 7470 

2300 C1=3:C2=2:C3=0:GOSUB 6480 

2310 FOR Y=B TO B+80 STEP 2 

2320 PLOT A+60,B+40,i: DRAW A,Y:NEX 

T 

2330 GOSUB 6220: BOSUB 7130:RETURN 

2340 ' 

2350 ' ********VIET-NAH********* 

2360 g*="VIET":capl$="Hano" 

2370 BOSUB 7470 

2380 cl=3:c2=3:c3=3:c4=5:BOSUB 6480 : 

2390 BOSUB 6700:PLOT A+64,B+46,5 

2400 PLOT A+64,B+48:PL0T A+52,B+46 

2410 PLOT A+44,B+46,3 

2420 BOSUB 6220:SOSUB 7130:RETURN 

2430 

2440 ' ********DANE«ARK******** 

2450 g*="DANE":capl*="Cope" 

2460 GOSUB 7470 



>BM< 


2470 cl=3:c2=3:c3=3:B0SUB 6480 


>EP< 


)VN< 


2480 c5=2: BOSUB 6790 


>NQ< 


>QP< 


2490 BOSUB 6220:BOSUB 7130:RETURN 


>YR< 


>WK 


2500 ' 


>JH< 


>TR< 


2510 ' *********SUEDE********** 


>JJ< 


>XT< 


2520 g$="SUED":capl$="Stac" 


>YK< 


>EU< 


2530 GOSUB 7470 


)OL< 


>BV< 


2540 cl=l:c2=l:c3=l:G0SUB 6480 


>IM< 


>XW< 


2550 c5=5: GOSUB 6790 


>PN< 


>EC< 


2560 GOSUB 6220:GOSUB 7130:RETURN 


>«P< 


>2D< 


2570 ' 


>RQ< 


>JE< 


2580 ' ********FINLANDE******** 


>AR< 


>TF< 


2590 g*='FINL":capl$="Hel5" s- 


>HT< 


>TG< 


2600 BOSUB 7470 


>NJ< 


>PH< 


2610 cl=2:c2=2:c3=2:S0SUB 6480 


>XK< 


>KJ< 


2620 c5=l: BOSUB 6790 


>HL< 


>BK< 


2630 BOSUB 6220:BOSUB 7130:RETURN 


>m< 


>NL< 


2648 ' 


>FN< 


>RM< 


2650 ' ********NORVESE********* 


>XP< 


>MD< 


2660 9$="NDRV":capl*="05ltj" 


>Efl< 


>LE< 


2670 BOSUB 7470 


>«< 


>BF< 


2680 cl=3:c2=3:c3=3:G0SUB 6480 


>HT< 


>MG< 


2690 c5=2: GOSUB 6790 


>RU< 


>XH< 


2700 FOR y=B+36 TO B+43 STEP 2 


>»« 


>NJ< 


2710 PLOT A,y,l:DRA» A+120,y:NEXT 


>FL< 


>XK< 


2720 FOR x=A+41 TO A+47 STEP 2 


>VH< 


>TL< 


2730 PLOT x,B:DRAW ;<,B+B0:NEXT 


>B« 


>NM< 


2740 BOSUB 6220: BOSUB 7130:RETURN 


>»< 


>AN< 


2750 ' 


>R8< 


>LE< 


2760 ' ********* ISLANDE********* 


>ftR< 


>KF< 


2770 g$="ISLA"icapl*="Reyk" 


>ZT< 


>XE< 


2780 GOSUB 7470 


>YU< 


>YH< 


2790 cl=lic2=l:c3=l:60SUB 6480 


>DV< 


>VJ< 


2800 c5=2: BOSUB 6790 


>JL< 




2810 FOR y=B+36 TO B+43 STEP 2 


>YN< 


>K< 


2820 PLOT A,y,3:DRA« A+120,y:NEXT 


>KN< 


>KL< 


2830 FOR K=A+41 TO A+47 STEP 2 


>XP; 


>DM< 


2840 PLOT x,B:DRAW s,B+B0:NEXT 


>«Q< 


>WN< 


2850 GOSUB 6220:BOSUB 7130:RETURN 


>ffi< 


>UP< 


2860 ' 


>UT< 


>RF< 


2870 ' *******BUATEMALA******** 


>uu< 


:>hb< 


2880 g*="6UAT":capl*="6uat" 


>zv< 


m< 


2890 GOSUB 7470 


>A«< 




2900 cl=l:c2=2:c3=l:G0SUB 6270 


>UM< 


>QJ< 


2910 GOSUB 6220:SOSUB 7130:RETURN 


>vn< 


>LK< 


2920 ' 


,>QP< 


;>QL< 


2930 **********GHANA********** 


>UJ< 


>m<. 


2940 g*="BHAN":capl»="Accr" 


>ZR< 


>TN< 


2950 BOSUB 7470 


>XT< 


>lff'< 


2960 cl=6:c2=5:c3=3:GQSUB 6480 


>pu<: 




2970 g=A+60:r=B+38:c6=4:BOSUB 684t 


>gv< 


>U«< 


2980 SDSUB 6220:6OSUB 7130:RETURN 


>cw< 


>Z6< 


2990 ' 


>YX< 


>DH< 


3^0 ' ******COTE D'IVOIRE***** 


>AD< 


;>QJ< 


3010 g$="CDTE":capl*="Ya«!0" 


>HE\ 


>LK< 


3020 GOSUB 7470 


>KF< 


>XLi 


3O30 cl=7:c2=2:c3=6:GOSUB 6270 


>AG< 


>DM< 


3040 BOSUB 6220: BOSUB 7130:RETURN 


>PH< 


>TN< 


3050 ' 


>KJ< 
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3966 ' »***M»*»IRLANDE*»M*»« >TK< 

3979 g$="IRLfl":capU="Oubr >«.< 

3989 60SUB 7479 >RM< 

3999 cl=6:c2=2:c3=7:S0SUB 6279 >GN< 

3199 SOSUB 6229:B0SUB 7130:RETURN >LE< 
3119 ' > SF< 
3129 ' »«***»«ETATS-UNIS*»*»** >LG< 

3139 g$="ETAT":h$="AnER H :i»="USA" ÏQH< 

3140 capl«="ta5ti"iS0SUB 7470 >YJ< 

3159 FOR y=B TO B+80 STEP 2 >LK< 

3160 PLOT A,Y,3:DRA« A+120,Y:NEXT >HL< 
3170 FOR P=l TO 11 STEP 2 >KH< 

3189 FOR Y=B+2+6*P TO B+6*(P+i! STE >VN< 
P 2 

3190 PLOT A,Y,2:DRAH A+t20,Y:NEXT:N >VP< 
EXT 

3200 FOR Y=B+3B TO B+89 STEP 2 >VF< 
3219 PLOT A,Y,l:ORA« A+52,Y:NEXT >OG< 
3229 FOR Y=9 TO 32 STEP 8 >2H< 

3239 FOR X=0 TO 40 STEP 8 >YJ< 

3240 PLOT A+18+X, B+42+Y, 2: NEXT: NEXT >YK< 

3259 FOR Y=9 TO 24 STEP 8 >DL< 
3269 FOR X=9 TO 32 STEP 8 >CM< 
3279 PLOT A+14+X,B+46+Y,2:NEXT:NEXT >KN< 



3280 BOSUB 6220:GQ5UB 7139 

3298 h*="*»*»": i$="*»»":RETURN 

3300 

3310 ' »**«»»**«RlilANDA»****»*** 

3320 g*="R«AN":h$="RUflN":capl$="lu! 

a" 

3339 60SUB 7470 

3349 cl=3:c2=5:c3=6:60SUB 6270 



>LP< 
>D8< 
>HB'.: 
>PH< 
1 >FJ< 

,«< 
>BL\ 



3350 PLOT A+50,B+20,4:DRAW A+50.B+6 >TM< 

e 

3360 FIOT A+50,B+62:DRAW A+63, B+62 >CN< 
3379 PLOT A+50,B+64:DRA« A+63,B+64 >HP< 

>LQ< 
)FR< 
>TH< 
>TJ< 



3389 PLOT A+64,B+60:DRAW A+64,B+46 

3390 PLOT A+50,B+44:DRAN A+63,B+44 
3400 PLOT A+50,B+42:DRAH A+63,B+42 
3419 PLOT A+60,B+42:DRAN A+64,6+30 



3429 PLOT A+64,B+39:DRAbl A+68,B+20 >YK< 

3430 SOSUB 6229:60SUB 7130:ht="*»»* >LL< 

3449 RETURN >T«< 

3459 ' >PH< 

3469 ' ♦*t**»*«LIBYE********* >TP< 

3479 g*="LIBY":capl*="Trip« >JQ< 

3489 BOSUB 7470 >|ffi< 

3490 cl=6:c2=6:c3=6:GQSUB 6480 >TT< 

3500'6OSUB 6220:SOSUB 7139:RETURN >QJ< 

3519 " >LK< 

3529 ' *******»SURINAI1»»«*»*** >H_<; 

3539 g»="SURr:capl$="Para» >XM< 

3549 BOSUB 7470 >TN< 

3559 cl=6:c2=6:c3=6:60SUB 6480 >PP< 



3560 FOR y=16 TO 64 STEP 2 >QQ< 

3570 PLOT A,B+y,2:DRAW A+120,B+y:NE >ZR< 



3580 FOR y=24 TO 56 STEP 2 >TT< 

3590 PLOT A,B+y,3:ORAW A+129,Bty:NE >CU< 

XT 

3690 c4=5:B=B-2: SOSUB 6799 >BK< 

3610 PLOT A+64,Bt46 >FL< 

3629 PLOT A+64,B+48iPL0T A+52.B+46 >EM< 

3639 PLOT A+44,B+46,3:PL0T A+60,B+5 >EN< 

6 

3649 B=B+2:60SUB 6220:GOSUB 7130:RE >VP< 
TURN 

3650 ' >R£|< 
3660 ' »**»*»**»i:HILI*»*«***** >BR< 
3670 g*="CHIL":capl*="Sant" >JT< 
3680 SOSUB 7470 >YU< 

3699 C1=3:C2=2:C3=0: GOSUB 6480 >FV< 

3700 FBR y=40 TO 80 STEP 2 >FL< 
3710 PLOT A,B+y,l:DRAW A+47,B+y:NEX >AM>' 
T 

3720 q=A*26:r=B+60:c6=2:GOSUB 6910 >BN< 
3730 GOSUB 6220:SOSUB 7139:RETURN >HP< 

3749 ' >RQ< 

3750 ' »«»**t1AOAGASCAR»««»** )FR< 

3769 gf^HADA^caplS^Anta" >AT< 

3770 SOSUB 7470 >YU< 
3780 C1=6:C2=3:C3=0:GOSUB 6480 >KV< 
3790 FOR x=0 TO 40 STEP 3 >EW< 
3890 PLOT A+x,B,2:DRAW A+x,B+B9:NEX >*l< 
T 

3B10 GOSUB 6220:SQSUB 7139:RETURN >VN< 
3820 ' >qp< 

3830 ' ***»«**t*CUBA**»*«*« >«q< 
3B40 g*="CUBA":capl$= ,i LaHa":cap2*=" >BR< 
La h" 

3850 BOSUB 7470 >XT< 

3S60 cl=i:c2*iic3=l:B0SUB 6480 >CU< 
3870 FOR p=lB TO 59 STEP 32 >«V< 
3880 FOR y=p TO p+14 STEP 2 >ZW< 
3890 PLOT A,B+y,2:DRAW Atl20,B+v >VX< 
3990 NEXT:NEXT >BN< 

3919 FOR Y=B TO B+80 STEP 2 >QP< 



3920 PLOT A+60,B+40,3;DRA« A,Y:NEXT >UQ< 

3930 r=B+40:q=A+26:c6=2 >WR< 

3940 GOSUB 6850 >YT< 

3959 GOSUB 6220;BOSUB 7130:RETURN >AU< 

3960 ■ >kv< 
3970 " M**«SIERRA-LEONE**M* >ZH< 
3980 g$="SIER":capl$="Frœ» >NX< 
3990 SOSUB 7470 >CY< 
4909 cl=l:c2=2:c3=6:G0SUB 6489 >VE< 
4919 BOSUB 6220:6OSUB 7130:RETURN >MF< 
4929 ' >HG< 
4030 ' «««VENEZUELA»*»»» >ZH< 
4040 g*="VENE":capl$="Cana M >6J< 
4050 GOSUB 7470 >PK< 
4960 cl=3:c2=l:c3=5:G0SUB 64B0 >BL< 



4970 DEG:FOR «=15 TO 165 STEP 25 >ZM< 
4080 PLOT A+61+20*COS(»),B+27+20*SI >KN< 
N(»),2:NEXT 

4090 60SUB 6220:6OSUB 7139:RETURN >NP< 
4190 ' >GF< 

4110. ' »*»»*«*»BENIN*»«»***«» >RB< 
4120 g*="BENr. l :capl»= n Por-t" >NH< 
4130 SOSUB 7479 >NJ< 

4140 cl=6:c2=i:c3=6:B0SUB 6480 >KK< 
4150 q=A+25:r=B+60:c6=3:GOSUB 6840 >BL< 
4160 GOSUB 6220:6OSUB 7139:RETURN >UM< 

4179 ' >PN < 

4180 ' ♦****»«THAILAND£»****»»* >CP< 
4190 g*="THAI":capl$="Bang" >FQ< 

4209 GOSUB 7479 >LG< 

4210 cl=2:c2=l:c3=2:G0SUB 6480 >UH< 

4229 FOR y=0 TO 13 STEP 2 >TJ< 

4230 PLOT A,B+y,3:DRA» A+120,B+y:NE >IK< 
XT 

4240 FOR y=67 TO 80 STEP 2 >8L< 

4250 PLOT A,B+y,3:DRAW A+120,B+y:NE >HM< 

XT 

4260 GOSUB 6220:GOSUB 7130:RETURN >VN< 

4270 ' >Qf.< 

42B0 ' »*«»*«»»***LAOS»«*»**»» >EQ< 

4299 g*="LAOS":capl*="Vien" >VR< 

4309 GOSUB 7470 >MH< 

4310 cl=3:c2=3:c3=3:G0SUB 6270 >WJ< 
4329 FOR y*23 TO 58 STEP 2 >LK< 
4339 PLOT A.Bty,l:DRAK A+120,B+y:NE >TL< 
XT 

4349 B=B-2:couleur=2:GOSUB 6999:B=B >XH< 
+2 

4350 GOSUB 6220:SOSUB 7139:RETURN >VN< 

4369 ' >Qp< 

4370 ' *»*****«»HONBURAS»»t**t« >ZQ< 
43B0 g«="HOND";capl$="Tegu" >RR< 
4390 SOSUB 7470 >XT< 
4409 cl=l:c2=2:c3=l:c6=l:G0SUB 6489 >HJ< 



4410 q=A+68:r=B+36:60SUB 6920 >MK< 

4429 g=A+44:r=B+44: GOSUB 6920 >NL< 

4430 q=A+44:r=B+ 32: BOSUB 6920 >K(1< 
4449 g=A+76:r=B+44: GOSUB 6920 >VN< 

4459 q=A+76:r=B+32:S0SUB 6920 >TP< 

4460 BOSUB 6220: GOSUB 7130: RETURN >XQ< 
4470 ' >TR< 
4480 ' **»**«*H*SYRIE*»***»*** >MT< 
4490 g*="SYRI":capl$="DaM" >PU< 
4500 GOSUB 7479 >PK< 
4510 cl=4:c2=2:c3=3:G0SUB 6480 >BL< 
4529 g=At40:r=B+3S:c6=6:6OSUB 6918 >FM< 

4539 g=A+80:r=B+38: GOSUB 6910 >RN< 

4540 SOSUB 6220: GOSUB 7130: RETURN >WP< 
4550 ' >RQ< 
4560 ' «M*»*»**IRAQ»*»»«*«****i>f >BR< 
4570 g*="IRAq«:h»= ,, IRAK":capl»="Bag >WT< 
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4598 
4680 
4610 
462" 
4636 
4648 
4659 
4668 
46713 



4690 

4700 

4710 

4720 

Niui 

4730 

4740 

2 

47» 

8 

4760 

4770 

4780 

4790 



GQSUB 7470 

cl=4:c2=2:c3=3:G0SUB 6480 
q=A+28:r=B+38:c6=6:G0SUB 6918 
q=A+68:r=B+38: B05UB 6910 

q=A+93:r=B+38: BOSUB 6910 
GOSUB 6220:SQSUB 7130 
h$="****":RETURN 

' **<hhhhh»*NI6ER********** 

s $="NIGE":capl»="Niaii" 

GOSUB 7478 

cl=6:c2=2:c3=7:60SUB 6480 

DE6:F0R u=» TO 360 STEP B 

PLOT A+64,B+38,7 

DRAW A+64+10*COS(u),B+38+19*SI 



>YU< 
>KV< 
>LL< 
;>nm< 
>WK 
>LP< 
>ZQ< 
>TR< 
>NT< 
>VU< 

>zv< 
>tw< 
>vm< 



NEXT 

5100 FOR x=A+15 TB'A+105 STEP 2 >M6< 

5118 PLOT A+60,B+47,6:DRAN x,B+8»:N >GH< 

EXT 

5120 FOR x=A+15 TO fl+Ul STEP 2 >U< 

5130 PLOT A+60,B+33,6:BRA« x,6:NEXT >UK< 



4810 

4820 

4830 

4840 

4850 

4869 

4870 

4880 

4B98 

XT 

4900 

4910 

XT 

4920 

4930 

XT 

4940 

4950 

4960 

4970 

4986 

4990 

5000 

5010 

502» 

5030 

5O40 

5050 

5060 

5070 



NEXT >«< 

PLOT A+52,B+44 :PLOT A+52.B+3 >NR< 

PLOT A+56,B+28,2:PL0T A+68,B+2 

GDSUB 6220: BOSUB 7130:RETURN 

' **w»*BURiaNA-FASSO****M 
g$="BURK":capl*="Oiiag" 
GOSUB 7470 

C1=6:C2=3:C3=»:S0SU6 6480 
q=A+6»:r=B+4»:c6=5:6DSUB 6840 
GOSUB 6220:6OSUB 7130:RETURN 



' ***»**MCOLOMBIE<t******* 

g$="COLD":cip!*="Bogn" 

BOSUB 7470 

FOR y=0 TO 40 STEP 2 

PLOT A.B+Y, lsDRAH A+120,B+Y:NE 



FOR v=42 TO 80 STEP 2 

PLOT A,B+y,5:DRAW A+120,B+y:NE 



>UT< 

>AU<: 
>HV< 
>BW< 
>ZX< 
>TN< 
>EP< 
>Eth 
>YR< 
;UT< 
>«U< 

M'. 
>FX< 

>EY< 

>LF< 



5140 

5150 

5166 

5170 

5180 

5190 

520» 

5210 

5229 

523» 

5248 

5250 

T 

5260 

527» 

52BB 

5298 

5300 

d" 

5310 

5320 

533» 

5348 



FOR y=8 TO 22 STEP 2 

PLOT A,B+y,3:DRAH A+120,B+y:l€ 

GOSUB 6220:GOSUB 713»:RETURN 

- *»*M****BUINEE«t******* 
g$="GUIN":capl*="Cona" 
GOSUB 7478 

cl=3:c2=5:c3=6:G0SUB 6270 
GQSUB 6220:GOSUB 7130:RETURN 

' ********JAMAIQUE******** 
g*="JAMA":caplt="King" 
GOSUB 747» 

cl=5:c2=5:c3=5:G0SUB 6270 
FOR y=B+5 TO B+7? STEP 2 
PLOT A+51,8+39,4:DRAtl A,y:NEXT 



BOSUB 6220: GQSUB 7130:RETURN 

' «HHKHHHHHT060********* 

q*="TOGO";capl*="Lo»e" 

GOSUB 7470 

cl=6:c2=6:c3=6:60SUB 627» 

FOR p=18 TO 50 STEP 32 

FOR y=p TO p+14 STEP 2 

PLOT A,B+y,5:DRAN A+12»,B+y 

NEXT: NEXT 

FOR y=34 TO 80 STEP 2 

PLOT A,B+y,3:DRAW A+54,B+y:NEX 

q=A+29:r=B+57:c6=2:G0SUB 6840 
GOSUB 6220:GOSUB 7130:RETURN 

■ ««««GRANDE-BRETAGNE**»** 
g$="GRAN" :M="ANBL" : capl*="Lon 

BOSUB 7470 

cl=3:c2=3:c3=3:G0SUB 6270 
FOR y=B*5 TO B+79 STEP 2 
PLOT ft+55,B+41,l:DRAW A,y:NEXT 



,'TL< 
>NH< 
>XN< 
>YP< 
>V8< 
>NR'i 
>AH< 
>NJ< 
>LK< 
>BL< 
>KM< 
>BN; 

>PP< 
>XQ< 
>TR< 
>ET< 
>KJ< 

>PK< 
>YL< 

>BH\ 
;VN< 



/ARt 
>BT< 

>AU< 
>«V< 
>CH< 
>LX< 
>CY< 
>RZ< 

;>hf; 

>HG< 
>EH< 

>BJ< 
;PK< 
>EL< 
;BH< 

mi. 



535» 

5360 

XT 

5370 

53B8 

T 

5390 

5400 

5410 

5420 

5430 

544» 

5458 

5468 

T 

5470 

5480 

XT 

5490 



FOR y=8+5 TO B+79 STEP 2 
PLOT A+69,6+41:DRAW A+128,y:NE 

FOR x=A+15 TQ A+109 STEP 2 
PLOT A+60,B+47:DRAU x,B+B»:NEX 

FOR x=A+15 TO A+lll STEP 2 
PLOT A+60,B+35:BRA» x,B:NEXT 
PLOT A+11,B,2:DRA« A+120.B+79 
PLOT A,B+2:BRAK A+115.B+S0 
PLOT A,B+78:DRAW A+115.B 
PLOT A+U,B+80:DRA» A+120.B+2 
FOR x=54 TO 68 STEP 14 
PLOT A+x,B,2:DRAN A+x,6+S0:NEX 

FOR y=36 TQ 44 STEP 2 

PLOT A,B+y,3:DRAW A+120,B+y:NE 

FOR y=34 TO 46 STEP 12 

PLOT A,B+y,2:DRAH A+129,B+y:NE 



556» ' **»««*CENTRAFR1QUE******* 
557» g*="CENT":capl*="Bar,g" 
5580 GOSUB 7478 
5590 FOR p=0 TO 68 STEP 2» _ 

) IF p=0 THEN col=5 
5610 IF p=29 THEN col=6 
5628 IF p=40 THEN col=2 . . 
5638 IF p=60 THEN coi=l 
5640 FOR y=0 TO 20 STEP 2 
5650 PLOTfi,B+p+y,tokBRAN A+120,B+ 

p+y 

5660 NEXT:NEXT 

5678 FOR x=54 TO 70 STEP 4 

5680 PLOT A+ï,B,3:BRAN A+x,B+B»:NEX 

T 

569» q=A+16:r=B+7»:c6=5:B0SUB 6928 

5788 GOSUB 6228:G0SUB 7130:RETURN 

5719 ' 

5720 ' ***«**««**PANAMA«********* 
5730 g$="PANA":capi*="Pana" 

5748 BOSUB 747» 

5750 ci=2:c2=2:c3*2:B0SUB 648» 

5760 FOR y=» TO 38 STEP 2 

5770 PLOT A,B+y,i;DRAU A+60,B+y:NEX 

T 

5788 FOR y=40 TO 8» STEP 2 

5790 PLOT A+64,B+y,3:DRAW A+128,B+y 

:NEXT 

5800 q=A+30:r=B+60:c6=l: BOSUB 684» 

5810 q=A+94:r=B+20:c6=3:BOSUB 6840 

5820 BOSUB 6220:GOSUB 7138:RETURN 



>WT< 

>Nu< 

>zv< 

>z«< 

>B«< 
>HN< 
>6P< 
>JS< 
>YR< 
>VT< 



>DP< 

.-HO' 



XT 

5510 
5520 
T 
5538 



FOR x=56 TO 64 STEP 4 

PLOT A+x,B,3:DRAW A+x,B+80:NEX 



>KT< 

>«U< 
>fK< 

>un 

>L«< 
>UN< 
>MP< 

>BQ< 
>AR^ 

>n< 
>çu< 

>YV< 

>un 

>TM\ 
>YN; 



5B40 ' **«**«**BANGLACESH******** 

5850 g*="BANB":capl*="Dacc" 

586» GQSUB 7470 

5870 cl=6:c2=6:c3=6:SQSUB 6480 
10 coiileur=7:S0SUB 699» 
'0 GOSUB 6220:6OSUB 7138:RETURN 



5908 

591» 

5920 

5930 

5948 

5958 

4 

5960 

5978 

5988 

5998 



m< 

>m 

>PX< 
>VN< 
>QP< 

>m 

>JR< 
>XT< 
>FU< 
>LV< 
>DW< 

>RX< 
>UV< 

>YP< 

>H0< 
>YR< 
>UT< 

)AU< 
>FV< 
>A«< 
>XX< 
>NY< 
>FZ< 
>RQ< 
>JR< 
/RT-; 
>GU< 
>K« 

m< 



BOSUB 6228:G0SUB 7138:h*="**** >PP< 



5888 FOR y=B+5 TO B+79 STEP 2 >DP< 

5098 PLOT A+73,B+41,4:DRAW A+12»,y: >BQ< 



5540 RETURN 
1 5556 ' 



/«h 

>TR< 



6020 
6030 
6840 
605» 
6068 
6670 
60B8 



- iHHHHHummURSS*********** 
g*="URSS" : h*="UNIO" : i*= i, RUSS" 
capl»="N05c":GQSUB 7479 
cl=3:c2=3:c3=3:G0SUB 6488 
PLOT A+16,B+64,5:BRAW A+36,B+5 

PLOT A+12,B+62:PL0T A+28,B+66 >ZX< 

PLOT A+32,B+60:DRAM A+32,8+66 >KY< 

PLOT A+32,B+68:DRAW A+24,B+72 >TZ< 

PLOT A+24,B+56:PL0T A+20,B+54 >FAi 

PLOT A+16,B+56:DRAK A+8,B+52 >XG< 

GOSUB 6220: GOSUB 7130 >EH< 

h$="****": i$="n**':RETURN >XK 
>LK< 

• Hi**»*H**GRECE************ >BL( 

g$="GREC":capl*="Athe" >H«< 

BOSUB 747» >™< 

cl=l:c2=l:c3=l:60SUB 6488 >YP< 

FGR n =12 TO 68 STEP 16 >EG< 

FOR y=p+2 TO p+8 STEP 2 >XR< 
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MM PLOT A,B+y,2:DRAW A+120,B+y:NE >flH< 

XT:NEXT 

6119 FOR y=3B TO 88 STEP 2 >LK 

4128 FLOT fl,B+y,l:DRflW A+52,B+y:NEX >UK< 

T 

6136 FOR y=54 TO 66 STEP 2 >JL< 

6140 PLOT A,B+y,2:DRAW A+52,B+v:NEX >XM< 

T 

6159 FOR x=24 TO 32 STEP 4 >HNÏ 

6169 PLOT A+s,B+36,2;DRAW A+x.B+80: >JP< 

NEXT 

6179 60SUB 6228:G0SUB 7139:RETURN 

6189 ' 

6199 ' 

6298 ' 

6218 ' 

6228 ' *****TRACE DU CADRE***»* 



6236 PLOT A,E,2:DRAW fl+120,8 
6249 DRAW A+128,B+86:DRAN A,B+86 
6256 DRAW A,B:RETURN 



><0< 
>TR<. 
WT< 

>EJ< 
>LK< 
>9L< 

>ym< 

>YN< 
>BP< 



6270 '*»*«*3 BANDES VERTICALES**»* >VR< 

6289 FOR P=l TO 81 STEP 46:X=A+P-1 >JT< 

6298 IF P=l THEN Col=Cl >CU< 

6386 IF Ml THEN Col=C2 >BK< 

6316 IF P=81 THEN Col=C3 >HL< 

6328 FOR X=A+P-1 TO A+P+39 STEP 4 >UK 

6336 PLOT X,B,Col;DRAW X,BtB6 >PN< 

6348 NEXT:NEXT;RETURN >PP< 

6356 ' >RQ< 

6360 '*******PETITS DRAPEAUX****** >ER< 

6378 ENT -7,1,-5,4 >HT< 

6386 SOUND 129,568,346,18,8,7 >8U< 

6398 FOR A=45 TO 565 STEP 40 >JV< 

6466 FOR P=l TO 17 STEP 8:X=A+P-1 >DL< 

6416 IF M THEN Co=l >QH< 

6426 IF P=9 THEN Co=2 >BN< 

6436 IF P=17 THEN Co=3 >EP< 

6446 FOR X=A+P-1 TO A+P+7 STEP 2 >EQ< 
6456 PLOT X,8,Co:DRAW X,B+16:NEXT:N >DR< 
EXT 

6468 PLOT A-2, B, 2: DRAW A+24,B:DRAW >DT< 
A+24,B+16:DRAW A-2, B+16: DRAW A-2,B: 
NEXT:RETURN 

6476 ' >VU< 

6488 ' **»2 ou 3 BANDES HORIZONTALE >KV< 
S»** 

6496 IF C3=6 THEN stp=46 ELSE stp=2 >«K 
6 

6506 FOR p=0 TO 52 STEP stp >DM< 

6518 IF p=6 THEN COl«Cl >HN< 

6528 IF p=stp THEN col=C2 >PP< 

6536 IF p=stp*2 THEN col=C3 >RQ< 

6548 FOR y=B+p TO B+p+ïtp >TR< 

6558 PLOT A,y,coI:DRAW A+120,y >QT< 

6566 NEXT:NEXT:RETURN >UU< 

6578 ' >«V< 

6586 ' ***«**CHANBEHENT DE******** >D«< 

6599 ' ******PAGE****** >FX< 



6600 LOCATE 20,24iPRINT CHR*i243) 

6610 A$=INKEY$ 

6620 IF AtO"" THEN 6670 

6638 FOR n=l TO 3 

6640 READ t:SDUND l,f,25:S0UND 2,f/ 

2,25 

6658 DATA 478,319,379 

6668 NEXT:REST0RE:60T0 6610 

6678 Po=l 

6686 CLS: RETURN 

6698 ' 

6766 ' *********ETQILE********* 

6716 DEG:FOR p=98 TO 450 STEP 72 

6728 FOR i'=4 TO 6 STEP -2 

6736 PLOT A+68+14*CQS(p>,B+42+14*SI 

N(p),c4 

6748 DRAW â+68+r*C0Sfp-36i,B+42+r*S 

IN(p-36! 

6756 PLOT A+66+14*C0Slp),B+42+14*SI 

N(pl 

6768 DRAW A+68+f*C0S!p+36),B+42+r*S 

INIp+36) 

6778 NEXT r:NEXT p:RETURN 

6786 ' 

6798 ' **********CROIX********* 

6886 FOR y=B+33 TO Bt47 STEP 2 

6810 PLOT A,y,c5;DRAW A+126,y:NEXT 

6828 FOR x=A+39 TO A+49 STEP 2 

6836 PLOT x,B:DRAW s,B+86:NEXT:RETU 

RN 

6846 ' 

6856 '******#PETITE ETOILE******** 

6866 FOR y=r-8 TO r+8 STEP 2 

6876 PLOT 9, y, c6; NEXT 

6886 PLOT q-B,r+4:DRAW q+B,r-4 

6896 PLOT q+8,r+4:DRAW q-8,r-4 

6988 RETURN 

6918 ' 

6920 '*****TRES PETITE ETOILE***** 

6936 FOR y=r-4 TO r+4 STEP 2 

6946 PLOT q,y,c6:NEXT 

6956 PLOT q-4,r+2:BRAW q+4,r-2 

6960 PLOT q+4,r+2:DRAW q-4, r-2 

6970 RETURN 

6986 ' 

6998 ' *****#****CERCLE************ 

7660 DEG:FOR u=8 TO 360 STEP 5 

7018 PLOT A+62,B+42,Couleur 

7626 DRAW A+62+17*C0S(u),B+42+17»SI 

N(u) 

7038 NEXT 

7848 FOR y=32 TO 50 STEP 2 

7650 PLOT A+88,B+y:NEXT 

7068 PLOT A+48,8+34:PL0T A+76.B+54 

7676 PLOT A+76,B+38:PL0T A+76,B+28 

7688 PLOT A+72,B+26:PL0T A+68,B+24 

7096 PLOT A+44,B+32 

7188 RETURN 

7116 " 



>FP< 
>EQ<. 
>NR< 
>XT< 

>EU< 
>KV< 

>xn< 

>LX< 
>Z¥< 
>BP< 
>HQ< 
>PR< 
M< 



7126 '******QUEST ION-REPONSE***** >t1L< 

7136 qu=st=l:qu$=" Pays" >VH< 

7146 repl*=g$irep2*=h$irsp3*=i$ >HN< 

7150 W1NDOW #1,W11,W12,W13,W14 >EP< 

7160 PEN#1,2:PAPER#1,8 >Ct|< 

7178 IF CHOIX=l THEN BOTO 7378 >JR< 

7186 CLS #quest:PRINT #qus5t,qu* >JT< 

7196 INPUT #qu=st,rep» >AU< 

7286 rep«=UPPERt(rep»)!rep$<EFT$(r >PK< 
ep*,4) 

7210 IF rep*="" THEN GOTO 7186 >8L< 

7226 IF rep$="Z" THEN PRINT CHR$(7) >YM< 
:BOTO 7376 

7238 IF rep$=repl$ OR rap$=rsp2» OR >FN< 
rep$=rep3$ THEN 7316 

7246 CLS #qusst:PRINT #quest," NON >BP< 
i » 

7256 IF quest=l THEN nonl=nonl+l >ZQ< 

7260 IF quest=2 THEN non2=non2+l >DR< 

7276 ENT -9,28,5,1,1,-168,1 >FT< 

7288 ENV 9,15,1,6,15,-1,20 >XU< 

7296 SOUND 129,20,339,15,9,9 >UV< 



>YX< 


7300 FOR n=l TO 1500: NEXT: GOTO 7181- 


>6L< 


>ZY< 






>QZ< 


7316 CLS #qusst:PR!NT #qusst " GUI 


,Ki^: 


>« 


i " 




>NR< 


7320 IF quest=l THEN ouil-ouil+1 


)BN\ 


>KT< 


7336 IF quest=2 THEN oui2=oui2+l 


>FP< 


>AU< 


7346 ENT 2,=256,1, 26,-16,1, 26,18,1 


>AQ< 




7358 SOUND 2,8,48,15,8,2 


tlR< 


>HV< 


7366 FOR [Pi TO 2360:NEXT 


>HT< 


>vw< 


7370 CLS #quest:PRINT tquest," ";re 


>XU< 


>9X< 


plt 




>AY< 


7388 qiiest : =quest+l:qu$="Capit. " 


>TV< 


>XZ< 


7398 repl*=capl* 


;>HW<. 


>YA< 


7468 rep2$=UPPER*lcap2$) 


>NH< 


>XR< 


7418 rep3t=UPPER$icapl»! 


>PN^ 


>UT< 


7428 WINDOW #2,W21,W22,W23,W24 


>KP< 


>KU< 


7436 PEN #2, 5: PAPER #2,0 


>HQ< 


>EV< 


7448 IF cho«=l AND quest<3 THEN 73 


>FR< 


>YW< 


76 




>6X< 


7456 IF quest<3 THEN BOTO 7178 


>JT< 


>HY< 


7466 RETURN 


>ZIK 


>EZ< 


7470 ' 


>«V< 


>BA< 


7488 '******PQSITIÛNNEHENT**»**»** 


>PW< 


>ZB< 


7498 ON Po BOTO 7588,7556,7608,7656 >SX< 


>HH< 


,7700,7750 




>KJ< 


7500 A=64 : 8=260 


>UN< 


>EK< 


7510 Wll=2 :W12=B :W13=11:W14=12 


>TP< 




7520 W2t=2 :W22=B :W23=12: «24=13 


>AQ< 


>RL< 


7536 W31=2 :W32=7 :W33=3 :W34=3 :RE 


>JR< 


>EM< 


TURN 




>XN< 


7548 " 


>UT< 


>JP< 


7558 A=256:B=266 


>BU< 


>HQ< 


7566 Wll=8 :W12=14:W13=11;W14=12 


>DV< 


>BR< 


7570 W21=B :W22=14:W23=12:W24=13 


>LW< 


>ET< 


7588 W31=8 :W32=12:W33=3 :W34=3 :RE 


>ux< 


>PJ< 


TURN 




>LK< 


7598 


>ZY< 
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7668 A=448lB=268 


>flt>< 


7838 IF CHOISI GOTO 138 


■RV< 


8686 PRINTiPRINT " ":oui2i" réponse 


>DJ< 


7614 Wll=14:W12=2Ô:W13=tl:W14=12 


>vq< 


7846 B=3B6:60SUB 6366 


>RW< 


exacte pour :i ;oui2+non2: " essai.": 




7628 H21=i4i«22=26l«23=12i«24=13 


>CR< 


7B56 LOCATE 2,5 


>ux< 


OOTO 8836 




7638 W.31=14:W32=18:W33=3 i«34=3 :RE 


>VT< 


7B68 PRINT" Voici vos résultats pou 


;TY< 


8816 PRINTiPRINT " ":oui2i" réponse 


.•«« 


TURN 




r";nbre; "nations:" 




exacte pour ";oui2+non2l" essais." 




7646 ' 


>vu< 


7876 FOR n=l TO 2668: NEXT 


>u< 


:S0T0 8638 




7u50 A=64 :B=B4 


>ZV< 


7688 LOCATE 16,9:PRINT"-Pay5: " 


>CA< 


B626 PRINTiPRINT " ";oui2:" réponse 


,>CL< 


7666 Wll=2 :W12=S :W13=22:W14=23 


>DW< 


7898 IF ouiltnonl<2 THEN 7926 


>JB< 


s exactes pour ";oui2+non2; " essais 




7678 «21=2 :K22=8 : «23=23: «24=24 


>LX< 


7988 IF ouil<2 AND ouil+nont>=2 THE 


>ET< 


." 




7688 «31=2 :W32=6 :W33=14:«34=14:RE 


>YY^ 


N 7936 




8636 PRINTiPRINT: PRINT " taie 


>JM< 


TURN 




7918 IF ouil-=2 THEN 7948 


>RU< 


z-vous recommencer ?" 




7698 ' 


>flZ< 


7928 PRINT:PRINT ' "joutlj" réponse 


>XV< 


8646 PRINTiPRINT " - Tapez 


m 


7788 ft=256:B=84 


>A8< 


exacte pour ";ouil+nonii" essai.": 




pour oui" 




7718 «11=8 :W12=t4:W13=22:W14=23 


>ER( 


GOTO 7958 




8656 PRINT " - Tapez N pour 


>UP< 


7726 «21=8 i«22=14:«23=23:«24=24 


>HT< 


7936 PRINTiPRINT " "iouiii" réponse 


>NW< 


non" 




7738 «31=8 i«32=12i«33=i4iM34=14iRE 


>ZU< 


exacte pour ";ouil+nonl;" essais." 




8666 a*=UFPER*iINKEY*) 


>Pfl< 


TURN 




:6QT0 7958 




B878 IF a$O"0" AND a$<>"N" THEN 86 


>RR< 


7746 ' 


m< 


7946 PRINTiPRINT " ";ouil;" réponse 


>VX< 


66 




7758 A=448iB=84 


>M< 


s exactes pour ";ouii+noni;" essais 




8686 CLS 


>XT< 


7766 «11=14:«12=28:W13=22:»14=23 


>H< 


."iBOTO 7958 




8898 IF a*="0" THEN GOTO 366 


>EU< 


7776 «21=14:W22=26:«23=23:«24=24 


>NV< 


7958 FOR n=l TO 2568:NEXT 


>QY< 


8186 LOCATE 5,16 


>HK< 


7786 «31=14i«32=18:«33=14:«34=14:RE 


>KZ< 


7966 LOCATE 16,15:PRINT"-Capitales: 


>AZ< 


8116 PRINT "Alors au revoir, et a a 


>UL< 


TURN 




" 




îentot !" 




7798 " 

7886 ' «HH»»rtESULTflTanHHHHHM 


>8A< 


7978 IF 0Ui2+nai2<2 THEN 8888 


>ZA< 


8126 B=158:G0BUB 6366 


>CM< 


>RR< 


7986 IF oui2<2 AND oui2+non2>=2 THE 


>FB< 


8136 LOCATE 1,24:END 18:END END END 


>DN< 


7B16 60SUB 6588 


>¥T< 


N 8616 








7826 MODE lîPEM 2;PftPER 8 


>KK 


7996 IF aui2>=2 THEN 8626 


>'qc< 


8344 END 


>N«( 




'NUCLEAR* 




Gérard TANN 1ERE 

En ordonnant les symboles des éléments chimiques par ordre de masse 

catomique croissante dans un tableau à double entrée, le chimiste russe Dimitri 

MENDELEIEV (1834-1907) s'est aperçu en 1869, que l'on trouvait dans une 

même colonne des éléments ayant des propriétés communes et le même 

nombre d'électrons dans la couche périphériques de leur structure électronique. 

Chaque élément occupe une case de ce tableau, le numéro d'ordre de la case 

étant identique au numéro atomique de l'élément (nombre de protons du 

noyau). 
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"NUCLEAR" (de nucléon : ensem- 
ble des protons et neutrons d'un 
noyau) est un programme destiné 
aux classes de 2 nde de chimie, trai- 
tant de l'utilisation de ce tableau de 
MENDELEIEV, appelé aussi ta- 
bleau de la classification périodique 
des éléments. 

Le programme comporte deux 
parties : 

1 - Etude : 

En déplaçant le carré clignotant sur 
le tableau à l'aide des flèches, vous 
obtenez, après appui sur [COPY], 
la carte d'identité complète de l'élé- 
ment sélectionné: 

- Symbole 

- Nom 

- Numéro atomique 

- Nombre d'électrons sur les diffé- 
rentes couches. 

• La couleur de fond de la fiche indi- 
que la famille de l'élément. 

• La couleur d'écriture indique l'état 
de l'élément dans les conditions 
normales : 

- Noir = solide 

- Bleu = gazeux 

- Rouge «liquide à 30°C 

- Blanc = obtenu artificiellement. 



2 -Jeu 

Après choix du niveau, l'ordinateur 
tire au sort et affiche le symbole 
d'un élément. 

- Niveau 1 : vous entrez le nom de 
l'élément. 

- Niveau 2 : vous ajoutez le numéro 
atomique. 

- Niveau 3 : (réservé aux très 
doués! ) vous devez entrer en plus 
la masse atomique. 

A l'issue des 20 questions, vous 
prenez connaissance de votre no- 
te. 



10 'm********************** >PB< 

20 * NUCLEAR * >tC< 

30 '* par * >ND< 

W '» Berard Tanmere * :>TE< 

50 '<HHHHHHHHHHHHHt***4HHHHHHHt >Uf< 

60 BORDER 13:INK 0,13:INK 1,0:1»: 2 >H6< 
,20: M 3, 6: MODE ltPAPER 0:PEN 1:CL 
S:DEG:0RI61N 200,200 
70 PEN 3:L0CATE 26,4:PRINT "N Dût >BH< 

E A R":PEN 1:L0CATE 3t,12:PRINT"pa 
r":PEN 2:LDCATE 2B,20:PRINT"6.Tanni 
ère": PEN 1 
B0 PRINT CHR*(23i+CHR*if);:TAG:PLDT >AJ< 

6,-250,2;MOVE 6,6:PRINT CHR*(231); 
:PL0T «,-239, 3: MOVE 0,0:PR1NT CHR»( 
231);:PL0T 0,-250,1: FOR a=l TO 1800 

STEP 10:xql=200COS(a!:yql=100*SIN 
(a!:xg2=100»COS(a+120i:yq2=lB0«SIN( 
a+120): 

90 MOVE xgl,ygl;PRINT CHHtf 144): :M0 >TK< 
VE xg2,yg2: PRINT CHRÎ f 144J : 
100 NEXT:TAGOFF: PRINT CHR$<23)+CHM >XB< 
(0!: 

110 RESTORE 660:1)111 tn(13,110i, t*!2 >DC< 
,110):FOR xl=l TO 105:SOUNB 7,;<1,15 
,7:F0R x2=l TO 13:READ n:tn(x2,xli= 
n:NEXT x2:F0R x3=l TO 2:READ n*:t$( 
K3,xl)=n*:NEXT :<3:NEXT si 
120 '*** Mode d'emploi *** >ED< 

130 CLS:RESTORE 1720:FOR nbi=l TO 3 >QE< 
9.-READ xi,yl,cray,phr*:PEN cray:L0C 
ATE xl,yl:PRINT phr$; :NEXT:CALL WB 
1B:PEN 1:PRINT CHR*(7); 
140 '»*« Utilisation du tableau **» >BF< 

150 DRIGIN 0,0:CLB:HOVE 127,270:DRA >L6< 
W 417,270:DRAIi| 417,384: DRAW 127.334 
:DRAW 127.272:WIND0il#i,9,26,2,8:»IN 
D0H#2,2S,36,2.4:L0CATE 2,1:PRINT CH 
R*(24); "CLASSIFICATION PERIODIQUE D 
ES ELEMENTS"; CHR* (24); 
160 RESTORE 1780: FOR s=l TO 2B:READ >AH< 

sd,xa,ya:MOVE xd,ya:DRAW xa,ya:NEX 
T:F0R y=l TO 60:READ ya,yd,xa:«OVE 
;<a,ya:DRAtt xa,yd:NEXT:PRINT CHR*!22 
)+CHR*(l);;LOCATE 1,2:PRINT "period 
e":L0CATE 2,3:PRINT CHR*(241);L0CAT 
E 18,17:PRINT CHR*(241!;" lanthanid 
es" 

170 LOCATE i,21:PRINT "groupe ":L0C >EJ< 
ATE 5,22:PRINT CHR*i24H:L0CATE 18, 
22:PRINT CHR$(240!:" actmides":LOC 
ATE 7,20:PRINT CHR$(243);:L0CATE 9, 
17:PRINT CHR*(24il;:PRINT CHR*(23)+ 
CHR$(1);;TAB:F0R y=0 TO 6: MOVE 8,34 
2-(y«32):PRINT y+l;:NEXT 



180 FOR g=l TO 7:M0VE g»32,38:PRINT >EK< . 

g::H0VE g«32+30, 38: PRINT "a"::NEXT 
:M0VE 300,38:PRINT "8";»a";:F0R g=l 

TO 7: MOVE 0*32+32», 38: PRINT g:: MOV 
E g*32+350. 38:PRINT "b";:NEXT:MOVE 
600, 38: PRINT "0"; 

190 FOR K«i TO 105:MOVE tn(l.x)-6*( >AL< 
LEN(t*(l,x)K2),tn(2,x)-8:PRINT t$i 
1,;:)::NEXT;TAG0FF:PRINT CHR*(23)+CH 
R$(0); PRINT CHRt(22)+CHR*(0): 
200 PEN#l,l:FAPER*l,0:CLSH:PENt2,l >NC< 
:PAPER«2,0:LOCATE#1.7.2:PRINTti,CHR 
*(24i;"MENU";CHR*(24):L0CftTEtl,5.4: 
PRINTtl,"l-> etude":LÛCATE#l,5,6:P 
RINT#1,"2— > jeu":WHlLE t'ub*0"":ru 
bt=I W.EYt: WEND : «HILE ruMO"2" AND 

rub*<>" 1 " : rub*=INKEY*: i€N» 
210 PRINT CHR*!7);:0N VALfrub») 60T >CD< 
220, 300 

220 '*** partie étude *** >CE< 
230 BOSUB 420 >TF< 

240 xc=49:yc=330 >F6< 

250 sc=xc+(32*(MEY18i>-l!)-(32*(I >MH< 
NKEY(1)>-1!):IF xc>593 THEN xc=xc-3 
2 ELSE IF xc<49 THEN xc=sc+32 ELSE 
60SUB 450 

260 yc=yc+(32*!INŒY!2i>-li)-!32*(I >DJ< 
*EY(«»-1));IF yc>35« THEN yc=yc-3 
2 ELSE IF yc<93 THEN yc=yc+32 ELSE 
BOSUB 450 
270 IF INKEY<9)>-1 THEN CLStkPRINT >KK< 

CHR*(7!;:60SUB 470 
280 IF INKEY(38!>-1 THEN PRINT CHR* >DL< 
(7! j: GOTO 206 

290 GOTO 250 >YM< 

300 *** partie .jeu »** >RB< 
310 CLS#2:CLS#1:PRINT#1:PRINT#1,SPC >BE< 
(7);"JEU":PRINT#1:PRINT»1,SPC<2!;CH 
R$(24!;"!";CHR*(24i"-> débutant", SP 
C (2! ; CHR* (24); "2"; CHR* (24) "-> moyen 
",SPC(2);CHF;t(24);"3";CHR$(24);"-J 
chimiste": 

320 WHILE niv*0"":niv*=INKEY*:tiEND >»F< 
:WHILE niv»<>"3" AND niv*<>"2" AND 
nlv$<>"l":niv*=INKEy$:«END:niy=VAL( 
nivl) 

330 sco=0:FQR ouest=l TO 20 >KG< 
340 RAND0MI2E TIME:x=INT(RND*105!+l >ZH< 
:INK 2,tn!3,xi:PAPER#l,2:CLS*l:INK 
3,tn(4,x) 

350 PEN#l,3:PAPER#2,2:PEN#2,3:cl*=C >LK 
HR* ! 15) +CHR* ( 1 ! +CHR* (24) :c2*=CHR* ( 1 
5) +CHR* (3) :c3*=CHR* (24i : CLSJ2; PRINT 
#2, cl*: "n i v " ; c3*; c2*; n iy , c 1*; "gués 
!l ;c3*;c2*;quest,cl*;"sco ";c3*;sco; 

360 IF niv>0 THEN L0CATE#1,9,2:PRIN >DK< 

T#l,c2*;t*(l,:<);PRINTil,SPC(INT(15- 

LEN(t*<2,x»)/2!;:quest*=UPPER*it*( 
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2,x)):q*l:B0SUB 556 

370 IF niv>l THEN PRINT#l,cl$;"nb a >ZL< 

to:";c3*;c2*;:quest$=UPPER$(STR*(tn 

(5, x) ) ) :quest*=R!6HT$ iquest$, LENiqu 

est*i-l):q=2:H)SUB 556 

38» IF niv>2 THEN PRINT#l,cl»:"m. a >FK< 

to:°ic3*;c2»;: quest*=UPPER* (STR* ( tn 

(6, x) I ) i quest«=RISHT$(quest*. LEN (qu 

e5t$)-li:q=3:B0SuB 550 

390 NEXT quest >BN< 

400 CLS»2::PRINT#2," niv ";niv," no >HE< 

te:",:PRINT*2,USINB "*#,l"!SCQ/niv; 

:PRINTI2,"/20"; 

416 BOTO 200 >LF< 

420 '♦** sp-l:affichage menu étude >R6< 

*«* 

430 CLS#2:CLS*l:L0CATEM,2,2:PRlNTt >MH< 

1 , CHR* (240) ; CHR*!241 ) ; CHR$ (242) : CHR 

♦(243);" déplacement";" curse 

ur";PRINTH,SPC(10);" [COPVI fiche" 

;" Ht] retour menu" 

440 RETURN >NJ< 

450 '*** sp-2: impression croix *** >UK< 

460 PRINT CHR$(23i+CHR*(l);;TA6:M0V >CL< 

E xc+B,yc-B:PRINT CHR* (233);: FOR t= 

1 TO 25:NEXT:hWE xc+8,yc-B: PRINT C 

HR* (233) i : TA60FF: PRINT CHR* (23! +CHR 

* (8);: RETURN 

470 '*** sp-3:test limites ♦*• >JH< 

480 FOR x=l TO 105:IF xc=tnil,x! AN >RN< 

D yc=tn(2,x) THEN BOSUB 500 ELSE NE 

XT x 

490 RETURN >TP< 

500 'm* sp-4:affichage fenêtre *** >RF< 

510 INK 2,tn(3,x>:PAPERtl,2:CLS*i:I >DS< 
NK 3,tn(4,x!:PEN*l,3:cl*=CHR*(15S+C 
HR*(l)*CHR*(24):c2$<HR*(15)tCHR*(3 
):c3$=CKR*(24) 

520 FRINT*l,SPC(8);t*(l,x),SPC(INT( >KH< 
17-LEN(t*i2,xi))/2!;t*i2,x),cls;"nb 
ato: "ic3s;c2*i tn (5, x) ,cl»; "m. ato: 
";c3$;c2*;tn(6,x) 

530 PRINTtl, ci»; "couches elect:",c3 >EJ< 
t;c2*;tn(7,x);",";tn(8,x);",";tn(9, 
K);",";tn(ie,x); ",";trt(ll,x);",";tr, 
(12,x);",";tn(13,x); 

540 RETURN >NK< 

550 '»** 5p-5;entree réponse et con >RL< 
trole *** 

560 INPUTM," ",rep*:IF rep*= n " THE >AM< 
N BOTO 560 ELSE IF UPPER$(rep*)=que 
st* THEN FOR s=i05 TO 1 STEP-hSOUN 
D 7,s,l,7:NEXT:sca=sco+l:60SUB 580 
ELSE GOSUB 610 

570 RETURN >»K 

580 '*»sp-6:Affichaqe fenêtre 2 * >BP< 

** 

590 PEN#2,3:L0CATE*2,5,2:F'RINTt2,qu >B0< 



est;:LuCATE*2,5,3:PRINT#2,sco; 

600 RETURN >KB< 

610 '*»* sp-7: solution réponse faus >DH< 

se *«* 

620 IF q=l THEN LQCATE#1, 1,3: PRINT» >HJ< 

1 , SPfCE* (17): LOCATEtl , 1 , 3: PRINTtl , S 

PC(INT(17-LEN!t*(2,x)))/2i;quest* 

630 IF q=2 THEN L0CATE»1,9,4:PRINT* >UK< 

l,SPACE*(9):L0CATE#l,9,4:PRINT»l,qu 

est* 

640 IF q=3 THEN LOCATEtl, 9,5:PRINT# >YL< 

l,SPACE*(9):L0CATE*l,9,5:PRINT«,qu 

estS 

650 q=0:FOR s=l TO 105:SOUND 7,5,1, >CH< 

7:NEXT:F0R t=l TO 1000:NEXT:RETURN 

660 '*** BATA éléments chimique *** >ZN< 

670 DATA 49,350,13,1,1,1.008,1,0,0, >VP< 

0,0, 0,0, H, Hydrogène 

680 DATA 593,350,26,1,2,4.00,2,0,0, ?GGK 

&,0.6,0,He,Helium 

690 DATA 49,318,24,0,3,6.94,1,2,0,0 >AR< 

,0,0,6,Li, Lithium 

700 DATA 61,318,25,0,4,9.013,2,2,0, >«H< 

6, 0,0,0,Be, Béryllium 

710 DATA 433,318,14,0,5,10.82,3,2,0 >HJ< 

,«,«,«, 8,8, Bore 

720 DATA 465,318,5,0,6,12.01,4,2,0, >LK< 

0,0,0,0,C, Carbone 

730 DATA 497,318,16,1,7,14.00,5,2,0 >JL< 

,0,0,0, 0,N, Azote 

740 DATA 529,318,7,1,8,16,6,2,0,0,0 >ZM< 

,0,0,0, Oxygène 

750 DATA 561,318,13,1,9,19.00,7,2,0 >FN< 

,0,0, 0,0, F, Fluor 

760 DATA 593,318,26,1,10,20.18,8,2, >AP< 

0,0. 0,0,0, Ne, Néon 

770 DATA 49,286,24,0,11,22.99,1,2,0 >XGK 

,0,0,8,0, N«, Sodium 

780 DATA 81,286,25,1}, 12,24.32,2,2,0 >XR< 

,0,0,0,0,Mg, Magnésium 

796 DATA 433,286,14,0,13,26.98,3,8, >ET< 

2, 6,6,8, 0,A1, Aluminium 

800 DATA 465,286,5,0,14,28.69,4,8,2 >XJ< 

,0,0, 6,0, Si, Silicium 

816 DATA 497,286,16,0,15,30.97,5,8, >ZK< 

2,0,0,0,0,P,Phosphore 

820 DATA 529,286,7,0,16,32.06,6,8,2 >TL< 

, 6,0,0, 0,S,Soufre 

836 DATA 561,286,13,1,17,35.45,7,8, >NM< 

2,6,0, 6, 6,C1, Chlore 

846 DATA 593,286,26,1,16,39.94,8,8, >NN< 

2,0,0,0,0,Ar,Argon 

850 DATA 49,254,24,0,19,39.1,1,8,8, >«P< 

2,6,0,0,K,Potassium 

860 DATA 81,254,25,0,20,40.08,2,8,8 >HQ< 

,2,0,0,6,Ca, Calcium 

876 DATA 113,254,15,6,21,44.96,2,9, >HR< 

8,2,0,0,6,Sc,Scandiu» 



886 DATA 145,254,15,6,22,47.96,2,16 >HT< 

,8,2,0,0,0,Ti, Titane 

890 DATA 177,254,15,0,23,50.95,2,11 >VU< 

,8,2, 8,8,8, V, Vanadium 

908 DATA 209,254,15,6,24,52.01,1,13 >BK< 

,8,2,0,8,0,Cr,Chrome 

910 DATA 241,254,15,0,25,54.94,2,13 >ZL< 

,8,2, 0,0,0, Un, Hanganese 

920 DATA 273,254,19,0,26,55.85,2,14 >ZM< 

g 9 a ft Ca ppf 

930 DATa'305,254, 19,6,27,58.94,2, 15 >UN< 

,8,2,0,6,0,Co, Cobalt 

940 DATA 337,254,19,0,28,58.71,2,16 >DP< 

,8,2,0,0,0,Ni, Nickel 

950 DATA 369,254,9,6,29,63.54,1,18, >HQ< 

8,2,8, 8, 8, Cu, Cuivre 

960 DATA 401,254,9,0,30,65.38,2,18, >RR< 

8,2,0,0,0,Zn,Zinc 

976 DATA 433,254,14,6,31,69.72,3,18 >FK 

, 8,2,0,0,0,6a, Gallium 

986 DATA 465,254,5,6,32,72.60,4,18, >TU< 

8,2,0,0,0,6e,Sermanium 

990 DATA 497,254,16,6,33,74.91,5,18 >XV< 

,8, 2, 0,0,0, As, Arsenic 

1006 DATA 529,254,7,6,34.78.96,6,18 >RB< 

,8,2,0,0,0,Se,Selenius 

1010 DATA 561,254,13,6,35,79.91,7,1 >EC< 

8,8,2,6, 8,0,Br,8rome 

1020 DATA 593,254,26,1,36,83.80,8,1 >AD< 

8.8,2,0,0,0,Kr,Krypton 

1030 DATA 49,222,24,0,37,85.48,1,8, >FE< 

18,8,2,0,0, Rb, Rubidium 

1040 DATA 81,222,25,0,38,87.63,2,6, >1H 

18, 8,2,8,8, Br, Strontium 

1050 DATA 113,222,15,0,39,88.92,2,9 >FB< 

,18,8,2,8,0, Y, Yttrium 

1060 DATA 145,222,15,0,40,91.22,2,1 /PH< 

6,18,8,2, 0,0, Zr,Zirconium 

1070 DATA 177,222,15,0,41,92.91,1,1 >IU< 

2, 18,8,2,0, 0,Nb,Niobium 

1080 DATA 209,222,15,6,42,95.95,1,1 >JK< 

3, 18, 8,2,8, 8, Ho, Molybdène 

1690 DATA 241,222,15,26,43,99,1,14, >TL< 

18,8,2,0,0,Tc,Technetium 

1100 DATA 273,222,19,0,44,101,1,1,1 >HC< 

5, 18,8,2,6, 6, Ru, Ruthénium 

1118 DATA 305,222,19,0,45,102.91,1, >XD< 

16,18,8,2,0,0,Rh,Rhodium 

1120 DATA 337,222,19,6,46,106.4,0,1 >KE< 

8, 18,8, 2,0, 8, Pd, Palladium 

1136 DATA 369,222,9,6,47,107.88,1,1 >JF< 

8,18,8,2,0,0, Ag, Argent 

1140 DATA 401,222,9,0,48,112.41,2,1 >Z6< 

8, 18, 8, 2,0,6, Cd, Cadmium 

1150 DATA 433,222,14,6,49,114.82,3, >TH< 

18, 18,8,2,6,6, In, Indium 

1160 DATA 465,222,5, '),50, lia. 70,4,1 >JJ< 

8,18,8,2,0,0,Sn,Etain 

1170 DATA 497,222,16,8,51,121.76,5, >TK< 
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18,18,8,2,0,0,Sb, Antimoine 

1188 DATA 529,222,7,0,52, 127.61,4,1 >ÏL< 

8,18,8,2,0,0,Te,Tellure 

11* DATA 561,222,13,8,53,126.91,7, >LH< 

18, 18,8,2,8,8,1, lobe 

1288 BATA 593,222,26,1,54,131.38,8, >6D< 

18, 18,B,2,0,0,Xe, Xénon 

1218 DATA 49,198,24,6,55,132.91,1,8 >AE< 

,18, 18,8,2,0,Cs,Caesiui . 

1228 DATA 81,198,25,8,56,137.36,2,8 >TF< 

, 18, 1B, 8,2,8, Ba, Baryum 

1238 DATA 113,126,17,8,57,138.92,2, >R8< 

9, 18, 18,8, 2, 9, La, Lanthane 

1248 DATA 145,126,17,8,58,148.13,2, >JH< 

9,19,18,8,2,0,Ce,Cerium 

1258 DATA 177,126,17,8,59,148.92,2, >DJ< 

9,26,18,8,2,0,Pr,Pra5eodyme 

1268 DATA 289,126,17,8,68,144.27,2, >AK< 

8,22,18,8,2, 8, Nd.Neodyme 

1278 DATA 241,126,17,26,61,145,2,8, >AL< 

23, 18, 8, 2, 8, Pi, Prometheum 

1288 DATA 273,126,17,8,62,158.35,2, >DN< 

8,24,18, 8, 2,8, Sm.Samarium 

1298 DATA 385,126,17,8,63,152.8,2,8 >HN< 

,25,18,8,2,0,Eu,Europium 

1388 DATA 337,126,17,8,64,157.2,2,9 >CE< 

,25,lB,8,2,8,Bd,6adolinium 

1318 DATA 369,126,17,8,65,158.93,2, >KF< 

9,26, 18,8,2.0, Tb.Terbium 

1328 DATA 481,126,17,8,66,162.51,2, >FB< 

9,27, 18,8, 2,0,Dy,Dysprosium 

1338 DATA 433,126,17,8,67,164.94,2, >KH< 

9,28,18,8,2,0,Ho,Hol«lul 

1348 DATA 465,126,17,8,68,167.27,2, >YJ< 

9,29,18,8,2,0,Er,Erbiu« 

1358 DATA 497,126,17,8,69,168.94,2, >XK< 

8,31,18,B,2,0,Tm,Thulium 

1368 DATA 529, 126,17,8,78, 173.94,2, >LL< 

8,32, 18, 8,2,0, Yb,Ytterbium 

1378 DATA 561,126,17,8,71,174.99,2, >BM< 

9,32, 19,8, 2,*, Lu, Luteciu» 

1388 DATA 145,190,15,8,72,178.6,2,1 >NN< 

0,32, 18,8,2, 8, Hf,Hafmui 

1398 DATA 177,190,15,8,73,180.95,2, >JP< 

11,32, 18,8,2,0,Ta,Tantale 

1408 DATA 269,198,15,8,74,183.86,2, >EF< 

12, 32, 18,8, 2, 0,W, Tungstène 

1416 DATA 241,190,15,0,75,186.22,2, >LB< 

13,32, 18,8, 2,0,Re,Rheniu» 

1428 DATA 273,198,19,8,76,198.22,2, >NH< 

14, 32,18,8, 2,0,Os,Osmium 

1430 DATA 305,198,19,0,77,192.2,6,1 >PJ< 

7,32, 18,8,2,6, Ir.Iridium 

1448 DATA 337,198,19,0,78,195.09,1, >PK< 

17,32, 18,8,2,0,Pt, Platine 

1450 DATA 369,199,9,», 79,197. 0,1, 18 >ZL< 

,32,18,8,2,0,Au,Or 

1460 DATA 401,190,9,6,88,200.61,2,1 >¥M< 

8, 32, 18, 8, 2, 0,Hg, Mercure 



1478 DATA 433,199,14,0,81,284.39,3, >KN< 

18,32,18,8,2,9,Tl,Thallium 

i486 DATA 465,190,5,0,82,287.21,4,1 >VP< 

8,32, 18,8,2,9,Pb, Plomb 

1498 DATA 497,190,16,0,83,209.00,5, >MX 

18,32, 18,8,2,0,Bi, Bismuth 

1588 DATA '529,190,7,0,84,210,6,18,3 >Q8< 

2,18,B,2,0,Po,Polonium 

1510 DATA 561,190,13,0,85,210,7,18, >KH< 

32,18,8,2,0,At,Astate 

1520 DATA 593,190,26,1,86,222,8,18, >EJ< 

32, 18,8,2,0,Rn,Radon 

1530 DATA 49,158,24,6,87,223,1,8,18 >«K< 

,32,18,8,2,Fr,Francium 

1540 DATA 81,158,24,0,88,226,85,2,8 >LL< 

,18,32,18,B,2,Ra,Radiu« 

1550 DATA 113,94,19,9,89,227,2,9,18 >UH< 

,32, 18,8,2, AcActinium 

1569 DATA 145,94,10,9,90,232.95,2,9 >VN< 
,19,32, 18, 8, 2,Th, Thorium 

1570 DATA 177,94,19,9,91,231,2,9,29 >DP< 
,32, 18,8,2, Pa.Protactiniu» 

1580 DATA 299,94,16,8,92,238.67,2,9 >R8< 

, 21, 32, 18, 8, 2, U, Uranium 

1598 DATA 241,94,16,26,93,237,2,9,2 >«R< 

2,32,18,8, 2, Np,Neptuniu«i 

1680 DATA 273,94,18,26,94,242,2,9,2 >BH< 

3, 32, 18,8,2, Pu, Plutonium 

1618 DATA 305,94,16,26,95,243,2,9,2 >DJ< 

4,32,18,S,2,Am,A»ericium 

1628 DATA 337,94,16,26,96,245,2,9,2 >AK< 

5,32,18,S,2,Cm,Curium 

1636 DATA 369,94,18,26,97,249,2,9,2 >FL< 

6,32,18,B,2,Bk,Berkelium 

1648 DATA 401,94,18,26,98,249,2,9,2 >81< 

7,32,18,8,2,Cf,Callfomius 

1650 DATA 433,94,18,26,99,255,2,9,2 >XN< 

8,32, 18,8, 2,Es,Einsteinium 

1660 DATA 465,94, 10,26,100,255,2,9, >JP< 

29,32, 18,8,2, F», Feriaiuu 

1670 DATA 497,94,10,26,101,256,2,9, >PQ< 

30, 32, 18, 8, 2, Nd , hendelevium 

1688 DATA 529,94,10,26,102,253,2,9, >ER< 

31,32, 18,B,2,No,Nobelium 

1690 DATA 561,94,18,26,183,253,2,9, >EK 

32, 32, 18, 8, 2, Lw, La»rencium 

1700 DATA 145,158,15,26,164,268,2,1 >NJ< 

0, 32, 32, 18,8,2, Ku.liourchatovium 

1710 DATA 177,158,15,26,105,269,2,1 >TK< 

1,32,32, 18,8,2,Ha,Hahnium 

1728 DATA 10,1,3, N.U.C.L.E.A.R,6,2 >BL< 

,1, Donne la , 15,2,2,classification 

périodique, 1, 3, 2,des, 5,3,1, "105", 9, 

3, 2, éléments chimiques, 28, 3,1, connu 

s. ,2, 4,1, "Le programme comporte 2 p 

arties:", 3,5,2, 1— >,8,5,3,ETUDE 

1730 DATA 1,6,1, "Vous déplace: le c >ZH< 

urseur clignotant a l'aide des tou 

ches du curseur puis ,enappuyant 



sur [C0PY3 la fiche complète del 'e 
lement apparait. " 
1748 DATA 1,18,1, Chaque élément a 

un symbole de couleurdifferente s 
elon qu'il est solide dansles cond 
itions normales (couleur, 34, 12, 2, no 
ire,39, 12,1,"), ",1,13,1, gazeux (cou 
leur,17,13,2,bleue,22,13,l,"i,",24, 
13, 1, liquida a 30 deg 
1750 DATA 1,14,1, (, 2,14, 2,rouge,7,l 
4,l,iou obtenu artificiellement!, 35 
,14,2,blanc, 49, 14,1,1,1,15,1, La cou 
leur de tond de la fiche represen- 
,1,16,1, -te les différentes famille 
s de produits, 1,17,1, Le trait gras 
a droite du tableau sépare 

1769 DATA l,lB,l,les,5,18,2,metaus, 
12,18,3, (a gauche), 23,18,1, et les, 3 
l,18,2,non-metaus, 1,19,3, (a droite! 
.,2,20,1, Retour au menu en appuyant 

sur M, 3,21, 2,2->, 8,21, 3, JEU, 1,2 
2,1. A chaque niveau vous devez entr 
er 1 2 ou3 réponses. 

1770 DATA 12,23,1, Une note vous e 
st attribuée, 1,24,1, après 28 questi 
ois., 4,25,2, — > APPUYER SUR UNE TO 
UCHE ( — 

1780 '«* DATA tableau *** 

1790 DATA 17,79,352,591,623,352,15, 

111,320,431,623,320,15,111,288,431, 

623,288,15,623,256,15,623,224,15,62 

3, 192, 15, 1 1 1 , 160, 143, 623, 160, 15, 1 1 1 

,128,111,591,128,111,591,96,111,591 

,64,47,623,48,47,623,16,112,132,184 

,95,111,86,19,43,350 

1808 DATA 19,43,130,47,623,18,47,62 : 

3,46,431,591,318,431,463,286,463,49 

5,254,495,527,222,527,559,190 

1810 DATA 128,352,15,16,48,47,128,3 : 

52,47,16,48,79,128,352,79,86,128,95 

,16,48,111,64,328,111,16,48,143,64, 

256,143,16,48,175,64,256,175.16.48, 

267,64,256,207,16,46,239,64,256,239 

,16,48,271,64,128,271 

1820 DATA 168,256,271,64,128,303,16 : 

0,256,383,64, 128,335, 166,256,335, 16 . 

,48,367,64,128,367,160,256,367,16,4- 

8, 399, 64, 128, 399, 166, 256, 399, 16, 48, 

431,64,128,431,166,320,431,16,48,46 

3,64,128,463,160,320,463,16,48,495, 

64,128,495,160,320,495,16,48,527 

1830 DATA 64,128,527,160,320,527,16 ; 

,48,559,64,128,559, 160,320,559, 16,4 

8,591,64,128,591,166,352,591,16,48, 

623, 168, 352, 623, 138, 184, 135, 139, 359 

,17,139,358,45,18,46,49,18,46,621,2 

88,320,433,256,288,465,224,256,497, 

192,224,529,160,192,561,328,352,593 



;>BR(. 



>DT< 
>DU< 



30 





BIORYTHMES 



Stéphane MARCHAND-MAILLET 



"Biorythmes" est un programme permettant de tracer des courbes 

biorythmiques à partir de la date de naissance de l'utilisateur. Il peut 

aussi vous donner un horoscope journalier en se basant sur les 

courbes sans être obligé de les tracer. 

Les courbes peuvent être sauvées sur disque ou papier. 

Attention ce programme ne fonctionne pas sur 464. 

NB : Le programme d'impression a été testé sur une CITIZEN I20D 

compatible EPSON. 
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******************* 



** BIORYTHMES ** 
** ** 

** CPC 6128 4 ** 
»♦ DMP-2000 ** 
#***####******#**** 



9y ' ***** CALCULS ***** 
100 ' 

110 INK 1,9: INK 0,0:6ORDER 0:GOSDB 
1620 

120 LOCATE 1,22: INPUT " Entrez vo 
tre date de naissance sous la forme 
<05.06.68> : ",d* 
130 LOCATE 4,24:INPUT "Entrez le «o 



>SC( 
>ZD< 
>JE< 

>LF< 

>ae< 

>XH< 
>FJ< 
>CK< 
>AB< 
>CC< 

>PD< 



>DE< 



Î5 et 1 'année désirée sous la forme 
<04.87> : ",da* 

146 j$=LEFTt!d*,2):«!(=MID*(d*,4,2); >HF< 
a»=RIGHT*(d*, 2! : mo$=LEFT$ (da$, 2) : an 
♦=RIBHT*(da*,2):«o=VAL(«o*):an=VALi 
an*):a=VALia*):«=VAL(i»*):j=VALIj») 
150 RESTORE 190:FOR x=l TO «:READ d >LB< 
urée: NEXT:duree= (durée- j)+l 

160 RESTORE 190: FOR x=l TO n:READ 1 >LH< 

:NEXT:F0R K=ra+l TO 12:READ l:lo=lo+ 

1:NEXT 

170 RESTORE 190:FOR x=l TO no-l:REA >HJ< 

D du:dur=dur+du:l€XT 

180 age=((an-a-l!»365!+lo+duree+dur >HK< 

190 BATA 31,28,31,30,31,30,31,31,30 >BL< 



,31,30,31 




200 FOR l>(itlWH! TO îan+1900-t! 


>ux 


210 IF x MOD 4=0 THEN bi=bi+l 


>CD< 


220 NEXT 


>HE< 


230 aqe=aqe+bl-0.5 


>FF< 


240 IF a=an THEN 270 


>BB< 


250 IF i<3 AND a MOD 4=0 THEN age=a 


>JH< 


ge+1 




260 IF «o>l AND an MOD 4=0 THEN aqe 


>FJ< 


=aqe+l 




270 RESTORE 280: FOR s=l TO «n;READ 


>*:< 


■o«:NEXT 




2B0 DATA "JANVIER" , "FEVRIER" , "MARS 


>QL< 


\ "AVRIL", "MAI", "JUIN", "JUILLET", "A 




007", "SEPTEMBRE", "OCTOBRE", "NOVEMBR 




E", "DECEMBRE" 




290 RESTORE 190:FOR a=l TO l»:REGD 


;Fh< 


lm:NEXT 




300 IF li-28 AND a MOD 4=0 THEN 1«= 


>KD< 


lmtl 




310 ' 


>DE< 


320 * TRACE DES COURBES * 


>LF< 


330 ' 


>FB< 


340 MODE 1:CLS:INK 0,0: INK 1,9: INK 


>VH< 


2,6: INK 3,24:B0RBER 




350 ORISIN 0,0 


>NJ< 


360 MOVE 0,1B4:DRAN 640,184,3 


MX 


370 FOR s=0 TO 639 STEP 639/ln 


>YL< 


380 MASK 15:M0VE x,41:DRAW x, 307,3: 


>AH< 


NEXT 




390 LOCATE 10,2:PEN 2:PRINT"B I R >EN< 


Y T H M E S" 





31 



400 LOCATE 10,3:PEN 2:PRINT"*(HHHHH >YE< 

*#**#*#**♦#*" 

410 PEN 3:LOCATE 18,5:PRINT m*;" >KF< 

";1900+an:LOCATE 2,5:PRINT UPPER$(t 

i*):LQCflTE 37,5:PRINT 1« 



429 PEN liLOCATE 2,24:PRINT"--Physi 
que ";:PEN 2:PRINT "— Euotionnel 
•;:PEN 3:PRINT"~Cerebral" 

439 MASK 255:K0VE 0,9;DRAW 0,399,3: 
DRAW 639, 399, 3: DRAW 639,0,3:DRA« 9, 
0,3:MOVE 9,40:DRAW 639,40,3:MOVE 9, 
308:DRAW 639,398,3 :MOVE 0,344:DRAW 

636,344,3:M0VE 161,308;DRAW 161,34 
4,3:MOVE 576,30B:DRAW 576,344,3 

440 MASK 255:BOVE 16,20:DRAW 40,20, 
UMASK !5:IKWE 192,20:DRAW 231,29,2 
:MASK 204;MOVE 430,20:DRAW 456,20,3 
:MASK 255:MDVE 576,30B:DRAW 576,344 
,3 

459 MASK 255:z=-6,4:M0VE -5,184iF0R 
x=age TO age+1» STEP l«/100:z=z+6, 

4;y=SIN((x*2»PI)/23)*109 

460 IF x<9 THEN MM z,y+184 ELSE D 
RAH z,y+184,l 

479 NEXT 

480 MASK 15:z=-6.4:MOVE -5,184:F0R 
x=age TO age+l« STEP l«i/100:z=:+6.4 
;y=SIN((x*2*PI)/28)*100 

499 IF x<0 THEN NOVE z,y+184 ELSE D 
RAH z,y+184,2 
599 NEXT 

510 MASK 204:z=-6,4:MOVE -5,184:F0R 
x=age TO age+ln STEP l»/100:z=z+6. 
4:y=SIN(!x«2*PI)/'33)«190 
529 IF x<0 THEN MQVE Z,y+1B4 ELSE D 
RAH z,y+184,3 

539 NEXT:date=l 

540 MASK 255:MQVE 0,9:DRAW 0,399,3: 
DRAW 639,399,3:DRAW 639, 9, 3: DRAW 9, 
0,3:MOVE 0,49: DRAW 639,49,3:MOVE 9, 
308:DRA» 639,308,3 

550 IF i«p*="0" THEN CALL SA090:PR 

INTt8:PRINT#8:PRINTit8 

560 ' 

579 'APPEL DE COPIE D'ECRAN 

580 ' 

599 IF INKEY(8!=0 THEN xx=xx-(639,'I 
m!:date-date-i:dx=l 
690 IF INKEY(i)=9 THEN xx=xx+<639/l 
œ):date=date+l:dx--l 
619 IF ch*="T" AND INKEY(54)=9 THEN 
699 

629 IF ch$="T" AND INKEY(69)=9 THEN 
: duree=0: 1=0: lo=0: du=0: dur=9: age=9 

:l«=9:x=0:y=0:z=0:bi=0:age=0:MDDE 2 
:B0T0 720 

630 IF INKEY(62)=0 THEN nari=ti*+". 
BIO":SAVE non», b,SC000, 44000 



ut 



>FJ< 

>¥!« 



>AL< 

>NH< 
>XN< 

>NP<- 



>E6< 
>LH< 
LJ< 

•RK< 



649 IF INKEï(61)=0 THEN CLEAR INPUT >WL< 
rMODE 2:END 

650 IF xx<9 THEN xx=0:date=l >QM< 
669 IF ;«0(639-((639/Im)-2)) THEN x >VN< 
x=639-<639/l«i):date=l«i 

679 PEN 3:L0CATE 14,5:PRINT USINB " >AP< 
##";date:FOR x=xx TO xx+ (639/1.) :PL 
OT x,184,2:NEXT:F0R x=xx+((639/l«i)* 
dx) TQ xx+(639/l»)+f((639/l«M)*dx 
):PLOT x,184,3:NEXT 

689 FOR x=0 TO 100:NEXT:6OTO 590 >6S< 

690 duree=0:l=0:lo=9:du=0:dur=0:age >GR< 
=0:lm=0:x=0:y=0:z=0:bi=9:«io=nio+kxx 

=0 

700 IF mo>12 THEN »o=l:an=an-H:GOTO >DH< 

159 ELSE GOTO 159 

719 ' >HJ< 

729 '*** HOROSCOPE *** >HK< 

730 ' »KL< 

749 MODE 2:L0CATE 30,1:PRINT"B I >VM< 
RYTHME S":LOCATE 34,3:PRINT»(C 

) S M M" 

750 DIM a$(271:CLEAR INPUT:LOCATE 5 )6N< 
,5:PRINT"Date de naissance : ";d*:L 
OCATE 5,7: INPUT " 

Entrez le jour de 

sire sous la forate <28,94,87> î ",d 

ai 

769 i*=LEFT$(d$.2):»»=MIDt(d*,4,2): >FP< 
a$=RI6HT* (dt, 2! : «o*=MID$ (da$, 4, 2i : a 
n*=RISHT* (da*, 2) : mo=VAL tmo*) : an=VAL 
(an*) :a=VAL(a«) :«=VAL«) : i=VAL( j*) 
:jo=VAL(LEFT*lda*,2)) 

770 IF d*=da* THEN RESTORE 280: FOR >UQ< 
x=l TO no:READ »o*:NEXT: GOTO 999 

789 RESTORE 199:F0R s=l TO «:READ d >WR< 

urée: NEXT: durée* (durée- j ) +1 

799 RESTORE 190:FOR x=l TO .:READ 1 >WT< 

:NEXT:FOR x=l+l TO 12:READ l:lo=lo+ 

1 : NEXT 

890 RESTORE 190:FOR x=l TO «o-l:REA >HJ< 

D du:dur=dur+du:NEXT 

810 age=l(an-a-l)«365)+lo+duree+dur >WK< 

820 FOR x=(a+1909+t) TO (an+1999-1) >VL< 

839 IF x MOD 4=0 THEN bi=bi+l >LM< 

849 NEXT >RN< 

850 age=age+bi >FP< 
860 IF «<3 AND x MOD 4=9 THEN age=a >RO< 
ge+1 

870 IF «0>2 AND x MOD 4=0 THEN age= >ER< 

age+1 

880 RESTORE 280: FOR x=l TO noiREAD >DT< 

«D*: NEXT 

899 age=age+jo >AU< 

909 phy=SIN ( Sage»2*PI ) /23! : emo=SIN ( >VK< 

lage«*PI)/2B):cer=SIN((age*2«PI)/3 



919 IF ABS(phy)<9.1 THEN ph=9 ELSE >WL< 
ph=S6N(phy) 

920 IF ABSle»oK0.1 THEN e«=0 ELSE >Z«< 
e»=S6N(e.o) 

930 IF ABS(cerK9.1 THEN ce=9 ELSE >NN< 

ce=SGN(cer) 

940 IF ph>0 AND e»>0 AND ce>9 THEN >CP< 

q=l . 

959 IF ph>9 AND e«i>0 AND ce<0 THEN >CQ< 
q=2 

960 IF ph>0 AND e»<9 AND ce>0 THEN >ER< 
q=3 

970 IF ph<9 AND e»>0 AND ce>9 THEN >GT< 

9=4 

980 IF ph>0 AND em<0 AND ce<0 THEN >6U< 

q=5 

999 IF ph<9 AND em;>0 AND ce<0 THEN >JV< 
q=6 

1000 IF ph<0 AND e«<0 AND ce>0 THEN >UB< 
q=7 

1019 IF ph<0 AND e«<0 AND ce<0 THEN >UC< 
g=8 

1929 IF ph>9 AND em>0 AND ce=0 THEN >BD< 
g=9 

1930 IF ph>9 AND eu=0 AND ce>9 THEN >WE( 
q=10 

1949 IF ph=9 AND em>9 AND ce>0 THEN >YF< 
g=li 

1950 IF ph>0 AND eu<0 AND ce=0 THEN >YB< 
q=12 

1060 IF ph<0 AND en>0 AND ce=ê THEN >AH< 
q=13 

1079 IF ph<9 AND e«=0 AND ce>0 THEN >CJ< 
q=14 

1080 IF ph=0 AND em<9 AND ce>9 THEN >EK< 
g=15 

1090 IF Ph=9 AND eo>0 AND ce<0 THEN >GLC 

q=16 
1190 IF ph>9 AND bji=0 AND ce<0 THEN >2C< 

q=17 

1119 IF ph<0 AND e«i-;0 AND ce=0 THEN >ZD< 
q=18 

1120 IF ph<0 AND e«=0 AND ce<0 THEN >BE< 

q=19 

1130 IF ph=0 AND ei<0 AND ce<0 THEN >UF< 

q=20 
1140 IF ph>0 AND e«=0 AND ce=9 THEN >Z8< 

q=21 
1150 IF ph=0 AND e«>0 AND ce=9 THEN >BH< 

g=22 

1169 IF ph=9 AND e«=9 AND ce>9 THEN >DJ< 
,=23 

1170 IF ph<0 AND em=0 AND ce=0 THEN >DK< 
q=24 

1189 IF ph=9 AND en<0 AND ce=9 THEN >FL< 

q=25 
1199 IF ph=9, AND e«l=0 AND ce<0 THEN >HM< 

q=26 
1299 IF ph=9 AND e«=0 AND ce=0 THEN >BD< 
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>FE< 

>UF( 

>m< 

>lh<: 



>qj< 



=1=27 

1219 ' 

1220 ' ** PREVISIONS M 
1239 ' 

1249 a*!l)= "Débordant d'énergie, v 
ous vous sente: en pleine forme: vo 
tre moral est au plus "+CHR*(9)+"h 
sut, votre esprit est alerte, bref, 
la vie est vraiment belle !" 
1259 a* (2)= "Vous voyez la vie en r 
ose et. comme la forme suit, vous vo 
us montrerez sous "+CHR*(9)+"vo 
tre meilleur jour! N'hésitez pas a 
entreprendre !" 

1269 a$(3)= "Vous ne manquerez ni d 
e vivacité d'esprit, ni de vitalité 

et vous vous sentirez "+CHR* !9) +"d 
e taille a surmonter les difficulté 
s ; profitez-en pour vous organiser 

1279 a$(4)= "Aide par votre flair e >UL< 
t votre perspicacité, vous portez u 
n regard d'artiste sur "tCHR*(9l+"l 
e monde. Votre sensibilité et votre 
esprit favorisent la création." 
1289 a*(5!= "Aujourd'hui, vous risq >JH< 
uez de ne pas vous sentir très conc 
erne par ce que vous "+CHR*!9)+''f 
aites ! ftlors contentez-vous de men 
us travaux !" 

1299 a$(6>= "L'humeur est bonne et >ZN< 
favorable aux rencontres, mais vous 
n'avez pas les pieds "+CHR*(9!+"s 
ur terre ! Programmez ce jour-la sa 
rties, expos, cinémas !" 
1399 a»(7)= "Vous pose: sur les gen >CE< 
s (y compris sur vous-memei un rega 
rd juste et lucide. "+CHR*(9)+"0 
ptez pour des activités demandant d 
e la reflexion." 

1319 a$(Bi= "Vos trois cycles en pe >UF< 
riode de récupération vous donnent 
un certain recul par "+CHR$(9i+"r 
apport a tout ce qui vous entoure. 
Choisissez des activités reposantes 

1329 a*(9)= "Vos relations avec les >VB< 
autres sont assez chaleureuses. La 
issez-vous aller a vo- "+CHR*(9)+"t 
re bonne humeur et évitez de prendr 
e des décisions importantes." 
1339 a*(19>= "ftnime par l'envie d'à >AH< 
gir et la volonté d'arriver a vos f 
ira, vous avez quelques "+CHRti9i+" 
difficultés a supporter les contrar- 
iétés ou les contre temps." 
1349 a*lll)= "Vous avez l'esprit cl >NJ< 
air et une façon de reagir positive 
, mais n'en faites pas "+CHR$(9)+" 



trop : physiquement, vous risquer ie 
z bien de ne pas suivre." 
1359 a* (12) -'Vous avez un peu de ma >MK< 
1 a rassembler vos idées et a vous 
faire comprendre. Gare "+CHR$(9)+"a 
ux etourderies. Surtout, reflechiss 
ez avant d'agir !" 

1369 aS(13)="Laissez-vous guider pa >DL< 
r votre humeur gui vous rend optimi 
ste ! Votre jugement "+CHR*(9)+"r 
isque de ne pas être très sur : ent 
ourez-vous de bons conseils. " 
1379 a*U4)="vous aurez tendance a >RM< 
fuir le le brouhaha pour vous retir 
et- dans votre tour d'i-"+CHR*(9)+"v 
oire et y réfléchir a loisir ! Prof 
itez-en pour faire des projets." 
1309 a*(15)="Vous risquez de vous 1 >ttl< 
ever du pied gauche et d'être mal e 
n point. Hais votre "+CHR*(9>+"s 
ens du devoir prendra le dessus et 
vous fera oublier ce jour gris !" 
1399 a*!16!-'Heureusement que vos a >BP< 
mis sont la pour vous entourer d'af 
fection et vous prodi- "+CHR$(9)+"g 
uer leurs conseils : vous avez très 
envie d'être dorlote !" 
1499 a$(17i-'Vou5 avez du mal a le >BF< 
cacher : un rien vous agace ! Evite 
: de vous mettre trop "+CHR*(9)+"e 
n colère, cela risquerait bien de s 
e retourner contre vous," 
1419 atilBi-'Il n'y aurait que vous >CG< 
, vous seriez bien reste au chaud d 
ans votre lit douillet "+M»(9)+"t 
oute la journée ! Alors, surtout n' 
essayez pas d'innover !" 
1429 a$U9)="vou5 ne vous sentez pa >RH< 
s dans votre asietta, Evitez de pre 
ndre une décision gui "+CHR*!9)+"e 
ngagerait votre avenir... vous pour 
riez vous en mordre les doigts. " 
1439 a*i29)-"Aujourdhui, il vaut m >EJ< 
îeux ne pas compter sur vous pour r 
emuer ciel et terre. "+CHR$(9i+"L 
ire un bon bouquin au coin du feu : 
c'est tout ce qui vous tente !" 
1449 a*(21)="La forme est bonne, ma >ZK< 
is le moral et les idées sont en ro 
ue libre ! Contentez- "+CHR*(9)+"v 
ous de taches routinières. Vraiment 
cela vaut beaucoup mieux !" 
1459 at(22)="Votre entourage va ben >JLi 
eficier de votre indulgence et de v 
os largesses ! Prenez "+CHR*(9)+"g 
arde a ne pas vous laisser rouler ! 
Et, ne soyez pas trop poire !" 
1469 a*(23)="Votre humeur noire et >UM< 
vos observations aigres-douces imem 



e justifiées) peuvent "+CHR$(91+"n 
e pas plaire a tout le monde : mett 
ez de l'eau dans votre vin !" 
1479 a$(24i="Vous avez tendance a v >NN< 
ous poser des tas de questions inut 
iles et a ne pas leur "+CHR*(9)+"t 
rouver de réponse, ce qui risque de 

retenir sur votre humeur !" 
14B9 a$(25)="Vou5 vous demandez si >XP< 
la vie vaut bien la peine d'être ve 
eue ? Ne cherche: "+CHR*(9!+"s 
urtout pas la réponse ! Livrez-vous 

plutôt a vos passe-temps préfères 

1499 a*(26)="La moindre petite cont >HQ< 
rariete peut prendre a vos yeux des 
allures de catastro- "+CHR*(9)+"p 
ne. Recherche: le calme et la solit 
ude par dessus tout ! " 
1599 a!(27)="Cette combinaison ne s >WB< 
e produit que B fois en 54 ans ! Vo 
us avez donc le temps "+CHR*(9!+"d 
e vous y préparer... et de vous en 
remettre ! Alors dorlotez-vous !" 
1519 HODE 2:PRINT"Le " ; jd;" ";mo»i 
• ";1999+an:PfiIHT:PRINT:PRINT "Phy 
sigue : ";ph 

1529 PRINT:PRINT"Euotionnel : ";em 
1539 PRINT:PRINT"Cerebral : ";ce 
1549 PRINT:PR1NT:PRINT:PRINT atfq) 



TH' 



>GJ< 
>VK< 
>HL< 



1559 PRINTiPRINT CHR*(24);" A -> 
Autre jour B -> Autre biorythme 
C -> Fin " ! CHRt(24i 

1569 xWPERJiINKEY*) 

1579 IF xt="A" THEN CLS:duree=9:l=9 

: lo=9: du=9: dur=9: aqe=9: lm=9: x=9: y=0 

:z=9:bi=9;age=9:ERASE a*:S0T0 759 

1589 IF x$="C" THEN CLSiEND 

1599 IF xt="B" THEN CLEAR:BOT0 129 

1699 S0T0 1569 

1619 ' 

1629 ' M PRESENTATION ** 

1639 ' 

1649 HODE 2-.LQCATE 39,1:PRINT"B I 
RYTHME S":L0CATE 39,2:PRINT S 

TRINS»(19,"-"> 

1659 LOCATE 34,3:PRINT»(C) S.H.H." 



>WM< 



>Z8< 
>KR< 

>m. 

>KJ< 
>YK< 

>HL< 
>ZH<- 



>CN< 



1669 IF ch*=" THEN LOCATE 4,5:PRIN >FP< 

T"Trace, Horoscope ou Chargement 1T 

/H/C) :" ELSE B0T0 1799 

1679 ch$=UPPER$(INKEY») >W 

16B9 IF ch$="T" THEN 1649 >Cfi< 

1699 IF ch*="H" THEN LOCATE 4,7:INP >*T< 

OT "Entrez votre date de naissance 

sous la forme <95.96.6B> : ",d* :60 

TO 729 

1799 IF ch*="C" THEN 1729 >AJ< 
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1718 GOTO 1670 

1720 LOCATE 5,18: !DIR, "*.blD" 



>ML< 



1730 LOCATE 4,9:PRINT"Une fois la c >JN< 

ourbe chargée :" 

1740 LOCATE 5,11:PRINT CHR*(242);" >MN< 

-> Curseur vers la gauche" 

1750 LOCATE 5,13:PRINT M» (243);" >VP< 

-> Curseur vers la droite" 

1760 LOCATE 5, I5;PRINT "D -> Fin" >TQ< 

1770 LOCATE 4,7:INPUT "Titre : ",ti >2R< 
♦:no«*=ti$+".BIO":MODE l.-LOAD nom$, 
K000 

1780 LOCATE 38,5:lntt=COPYCHR»(#0): >XT< 
LOCATE 39,5! 1»2$=COPYCHR*(*0) : l«t=l 
jl$+lsi2$:l»=UAL(liii*):date=l:60T0 59 


1798 LOCATE 4,5:INPUT"Titre (8 lett >UU< 
res maxi) ; ■,ti*:ti$=L£FT*(ti$,8) 
1800 LOCATE 4,20:PRINT"Desire: vous >»X 
npruer (0/N) : "+CHR$<143> 
1810 LOCATE 4,7:PRINT"Une fais les >RL< 
courbes tracées: " 

1820 LOCATE 6,9:PRINT"A -> Horoscop >YrK 
e" 
1B30 LOCATE 6,11:PRINT"B -> Mois su >LN< 



ivant" 

1840 LOCATE 6,13:PRINT"C -> Sauvega 

rde de la courbe sur dise" 

1850 LOCATE 33,9:PRINT"D -> Fin" 

1860 LOCATE 6,15:PRINT CHR«(242):" 

-> Curseur vers la gauche" 

1870 LOCATE 6,17:PRÎrlT CHRSI243);" 

-> Curseur vers la droite" 

1880 imp*=UPPERt(INKEY*):LOCATE 34, 

20:PRINT inp* 

1890 IF iup*="N" THEN RETURN 

1900 IF inp$="0" THEN GÛTO 1920 



>XQ< 
;WR; 



>DT( 
>NU( 



1910 
1920 
1930 
ELEE 
1940 
1950 
0,cd. 
i960 
b,a0, 
1970 
b,cl, 
1986 
0,e9, 



' ROUTINE DE COPIE D'ECRAN APF' 
PAR <CALL M000> 

DATA cd,ba,bb,cd,e7,bb,32,bB,a 

6c,a0,21,8f,01,22 

DATA b9,a0,ll,00,00,3e,07,32,b 

cd,77,a0,0e,00,3a 

DATA bb,a0,47,e5,d5,c5,cd,f0,b 

dl,21,b8,a0,be,el 

DATA 37,20,01, a7,cb, 11, 2b, 2b, 1 

cd,aa,a0,79,cd,al 



>bL\ 

m< 

>PN< 

:>ep< 

>RQ< 

>GR< 

>HT< 
>I*K 
>JV< 



1990 DATA a0,13,e5,21,7T,02,37,ed,5 >UW< 

2,el,38,05,2a,b9,a0,18 

20» DATA ce, 23,7c, b5,c8,2b, 11,00,0 >MC< 

0,22,b9,a0,3e,07,bd,20 

2010 DATA b9,7c,b4,20,b5,3e,04,32,b >TB< 

b,a0,18,ae,3e,lb,cd,al 

2020 DATA a0,3e,31,cd,al,a0,c9,e5,3 >VE< 

e,42,cd,le,bb,el, 28,02 

2038 DATA el,c9,3e,0d,cd,al,a0,3e,0 >ZF< 

a,cd,al,a0,3e,lb,cd,al 

2040 DATA a0,3e,4c,cd,al,a8,3e,7*,c >F6< 

d,al,a8,3e,02,cd,al,a0 

2050 DATA c9,cd,2e,bd,38,ft,cd,2b,b >DH< 

d,c9,3a,bb,a0,<e,07,c8 

2068 DATA af,cb,ll,cb,ll,cb,il,c9,0>CJ< 

0,00,00,00 

2870 MEMORY WFFF: RESTORE 1950 >YK< 
2080 s=0: LOCATE 4,22:PRINT CHR*(24! >HL< 
/PATIENTEZ UN INSTANT. ..' , ;CHR$(24> 

2090 FOR i=&A000 TO 4A0BB >HH< 

2100 READ b*ib=vAL("Ji"+b$iiPQKE i,b >KD< 
:s=s+b 

2110 NEXT >KE< 
2120 IF s<> 45A06 THEN PRINTERREUR >UF< 
EN DATA":END 

2130 RETURN >MG< 
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4 REVUES POUR LES PASSIONNES 



CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles I A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatlblas MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC". 

Attention, tous nos abonnés reçoivent avant parution des souscriptions sur les nouveaux 
livres I 

ATTENTION I II n'y a pas d'abonnement rétroactif. 

D CPC AMSTRAD 11 numéros 180 F 

□ 6 numéros 105 F 

D Abonnement essai 3 numéros 55 F 

D AMSTAR 11 numéros 100 F 

D PCompatibles Magazine 1 1 numéros 200 F 

D Arcades 1 1 numéros 200 F 



NOM 

Adresse - 



Code postal - 



Ville . 



Date- 



Signature- 



Je m'abonne à : 



Merci d'écrire en majuscules. Ci-joint un chèque libelle a l'ordre de : Editions SOPACOM. 
Service Abonnement - BP 1 1 - 351 70 BRUZ - Retournez le(s) bulletin(s) ou uns photocopie. 
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Vbîd deux- IttuAsÂ OjfekS de, Jtrt^ .. 




VOS ANCETRES 

DANS UN PC 



20 F. 

CHAQUE MOIS 

DANS LES KIOSQUES 

OU SUR ABONNEMENT 




INFORMATIQUE 



SOMCJM 



AIN/ISO 
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